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PREFAZIONE 


In questo libro sono raccolti alcuni programmi scritti in linguaggio BASIC 
(Basic è un marchio registrato dalla Trustees del collegio di Dartmouth). Questi 
programmi riguardano una vasta casistica di problemi pratici. I programmi sono 
scritti in Basic standard, questo tipo di Basic è compatibile con molte versioni del 
Basic oggi utilizzato sui microcomputer. Questo libro può essere utilizzato sia da 
chi sa scrivere un programma, sia da chi non lo sa scrivere. In esso non viene 
insegnato come si programma in Basic, vi sono centinaia di libri che forniscono 
queste indicazioni, ma vengono sviluppati completamente alcuni programmi 
includendo degli esempi ed il listing di ogni programma trattato. 

Nel caso non si abbia familiarità col Basic, non si deve far altro che compilare 
il listing del programma sul computer; gli esempi illustrano l’esecuzione del 
programma. 

Nel listing sono incluse alcune osservazioni che servono di aiuto al program¬ 
matore, in quanto, chiariscono il lavoro che viene svolto dal programma. Esse 
aiutano anche ad identificare le varie parti del programma, in questo modo le 
singole parti potranno facilmente essere riutilizzate in altri programmi. Le osser¬ 
vazioni precedono le linee contenenti le operazioni commentate. Gli stati REM 
possono essere omessi al momento di introdurre il programma, poiché, essi 
vengono ignorati dal computer. 

Alcuni programmi contengono delle opzioni. Una opzione è una possibile 
alternativa in cui vengono variati i formati delle entrate, o delle uscite, rispetto al 
programma originale, le opzioni possono suggerire variazioni da apportare ai 
programmi, esse includono una breve descrizione, un esempio di campione 
eseguito, ed il listing parziale di ogni opzione. Tale listing parziale include gli stati 
del programma che si debbono variare per passare dal programma originale a 
quello opzionale. 

Tutti i programmi possono essere eseguiti usando un teletype (Teletype è un 
marchio registrato della Teletype Corporation) o sistemi ingresso/uscita similari 
contenenti 72 caratteri. 

Nel caso in cui la lunghezza della vostra linea di uscita sia minore di 72 
caratteri, dovrete variare gli stati PRINT del programma in modo da renderlo 
adatto alla vostra uscita. 
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VALORE FUTURO DI UN INVESTIMENTO 


Questo programma calcola il valore futuro di un investimento quando 
l’interesse è un fattore conosciuto. Bisogna fornire il valore dell’investimento 
iniziale, il tasso dell’interesse nominale, il numero di periodi composti per anno ed 
il numero di anni dell’investimento. 

Considerando che non vi siano depositi aggiuntivi e che non vi siano prelievi, 
il valore è basato sulla seguente formula: 

T = P (1 + i/N) N Y 


dove: 


T = valore totale dopo Y anni (Valore Futuro) 
P = investimento iniziale 

i — tasso d’interesse nominale 

N = numero di periodi composti per anno 
Y = numero di anni 


Esempi: 

Cari fa un investimento di $ 6800 al 9,5%. Sapendo che si hanno 4 periodi 
composti per anno, quale sarà il valore di questo investimento dopo 10 anni? 

Il sig. Rossi acquista una proprietà per $ 16050. Il valore della proprietà 
aumenta con una media annuale del 7%. Quanto varrà la proprietà del sig. Rossi 
dopo 5 anni e 1/2? 


VALORE FUTURO DI UH INVESTIMENTO 

INVESTIMÉNTO INI2IALE? 6300 
TASSO DI INTERESSE NOMINALE? 0.5 
NUMERO DI PERIODI COMPOSTI PER ANNO? 4 
NUMERO DI ANNI? 10 
VALORE FUTURO -t 17333.64 

ALTRI DATI ? <1=SI,0=NO>? 1 

INVESTIMENTO INIZIALE? 16050 
TASSO DI INTERESSE NOMINALE? 7 
NUMERO DI PERIODI COMPOSTI PER ANNO? 1 
NUMERO DI ANNI? 5.5 
VALORE FUTURO =t 23285.51 

ALTRI DATI ? <1=SI,0=NO>? 0 

READV. 


Listing del programma 


10 PRINT "VALORE FUTURO DI UN INVESTIMENTO" 

20 PRINT 

29 REM - LE RIGHE DA 30 A 100 RICHIEDONO L'INTERVENTO DELL'UTENTE 
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30 PRINT "INVESTIMENTO INIZIALE"; 

40 INPUT P 

50 PRINT "(TASSO PI INTERESSE NOMINALE"; 

60 INPUT I 

70 PRINT "NUMERO DI PERIODI COMPOSTI PER ANNO"-;.., 

80 INPUT N 

30 PRINT"NUMERO DI ANNI"; 

100 INPUT V 

108 REM - CALCOLA IL TASSO DI INTERESSE PER PERIODO 

109 REM - CONVERTI DA PERCENTO A DECIMALI 

110 I=I/N,'100 

119 REM - CALCOLA IL VALORE FUTURO CON LA FORMULA 

120 T=P*<l+I>t<N#Y> 

129 REM - ARROTONDA ALLE CENTINAIA, STAMPA 

130 PRINT "VALORE FUTURO =f";INTCTf100+.5>/100 

139 REM - STAMPA UNA LINEA BIANCA PER SEPARARE I DATI DALLE DOMANDE 

140 PRINT 

149 REM - RIPARTI 0 TERMINI IL PROGRAMMA? SI RICHIEDE L'INTERVENTO DELL'UTENTE 

150 PRINT "ALTRI DATI ? <Ì=SI,0=NO>", 

160 INPUT X 

170 IF X=1 THEN GOTO20 
180 END 


OPZIONE 

Questo programma permette l’introduzione del termine dell’investimento in 
anni sia come un numero intero che come decimale. In alcuni casi, dovendo 
introdurre il termine dell’investimento in anni e mesi invece che in soli anni, il 
programma deve essere cambiato come nell’esempio successivo. 

Esempio: 

Alberto investe $ 12000 all’8% di interesse. L’interesse è composto trimestral¬ 
mente. Quale è il valore di questo investimento dopo 10 anni e 7 mesi? 

•ALORE FUTURO DI UN INVESTIMENTO 

INVESTIMENTO INIZIALE? 12000 
suorA DI INTERESSE NOMINALE? 8 
SUMERO DI PERIODI COMPOSTI PER ANNI? 4 
SUMERO DI ANNI, MESI ? 10 , 7 
ALORE FUTURO =1 27749.5 

ALTRI DATI ? <1=SI,8=N0>? 0 

READY. 


Oioz i orse’ 

1 REM - OPZIONE 90-105 

10 PRINT "VALORE FUTURO DI UN INVESTIMENTO" 


30 INPUT N 

90 PRINT"NUMERO DI ANNI, MESI "; 

100 INPUT V0,M 

104 REM - CALCOLA OLI ANNI DAGLI ANNI E MESI 

105 Y=<12*V0+MV12 

103 REM - CALCOLA IL TASSO DI INTERESSE PER FERIODO 


180 END 
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VALORE FUTURO DI UN DEPOSITO 
REGOLARE (ANNUALITÀ ) 


Questo programma calcola il valore futuro di un deposito regolare. Tutti i 
depositi sono uguali. Bisogna fornire Tammontare di ogni deposito, il numero di 
depositi per anno, il numero di anni, e il tasso di interesse nominale. 

Considerando che l’interesse è composto ad ogni deposito, il calcolo si basa 
sulla seguente formula: 


/ (1 +//A/) /V ’ V '-1 \ 

V i/N 7 


dove: 


T = valore totale dopo Y anni (valore futuro) 
R = ammontare del deposito regolare 
N = numero di depositi per anno 
Y = numero di anni 

i = tasso di interesse nominale. 


Esempi: 

Matteo deposita ogni mese $ 50 su un conto di risparmio del Christmas Club 
con un interesse del 5%. Quanto riceverà Matteo alla fine dell’anno? 

Tim effettua un pagamento annuale di $ 175. L’interesse è del 5,5 %. Quanto 
avrà accumulato Tim in 15 anni? 


VALORE FUTURO DI UN DEPOSITO REGOLARE (ANNUALITÀ') 

AMMONTARE DEL DEPOSITO REGOLARE? 50 
TASSO DI INTERESSE NOMINALE? 5 
NUMERO DI DEPOSITI PER ANNO? 12 
NUMERO DI ANNI? 1 
VALORE FUTURO = t 613.94 

ALTRI DATI? <1=SI,0=NO>? 1 

AMMONTARE DEL DEPOSITO REGOLARE? 175 
TASSO DI INTERESSE NOMINALE? 5.5 
NUMERO DI DEPOSITI PER ANNO? 1 
NUMERO DI ANNI? 15 
VALORE FUTURO = * 3921.52 . 

ALTRI DATI? <1=SI,0=NO>? 0 


Listing del programma 

10 PRINT "VALORE FUTURO DI UN DEFOSITO REGOLARE (ANNUALITÀ')" 

20 PRINT 

29 REM - LE RIGHE DA 30 A 100 RICHIEDONO L'INTERVENTO DELL'UTENTE 
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30 PRINT "AMMONTARE DEL DEPOSITO REGOLARE"; 

40 INPUT R 

50 PRINT "TASSO DI INTERESSE NOMINALE"; 

60 INPUT I 

70 PRINT "NUMERO DI DEPOSITI PER ANNO": 

30 INPUT N 

90 PRINT "NUMERO DI ANNI", 

100 INPUT V 

103 REM - CALCOLA IL TASSO DI INTERESSE PER IL DEPOSITO, 

109 REM - CONVERTI DA PERCENTO IN DECIMALI 

110 I-I/N/100 

119 REM - CALCOLA IL VALORE FUTURO DALLA FORMULA 

120 T=R*<<1+I>KN*V>-1VI 

129 REM - ARROTONDA ALLE CENTINAIA, STAMPA 
ISO PRINT "VALORE FUTURO = «“i INT<T#100+. 5V100 

139 REM - STAMPA UNA LINEA DIANCA PER SEPARARE I DATI DALLA DOMANDA 

140 PRINT 

149 REM - RIPARTI 0 TERMINI IL PROGRAMMA? SI RICHIEDE L'INTERVENTO DELL'UTENTE 

150 PRINT "ALTRI DATI? <1=SI,0=NO>", 

160 INPUT X 

170 IF X=1 THEN GOTO 20 
1S0 END 


OPZIONE 

È possibile introdurre il termine dell’investimento in anni e mesi anziché in 
anni. Il programma va variato come nell’esempio successivo. 


Esempio: 

Quanto riceverà Ron dopo 10 anni e 5 mesi se egli deposita ogni mese $ 50 al 
5% di interesse? 

DEPOSITO REGOLARE 

'ALORE FUTURO DI UN DEPOSITO REGOLARE «ANNUALITÀ") 

AMMONTARE DEL DEPOSITO REGOLARE? 50 
TASSO DI INTERESSE NOMINALE? 5 
■•UMEfTASSO depositi PER ANNO? 12 
NUMERO DI ANNI, MESI? 10 , 5 
/ALORE FUTURO = f 3179.31 

.AL'RI DATI? <1*SI,0=NO)? 0 


O^zione 


1 REM - OPZIONE 90-105 

10 PRINT "VALORE FUTURO DI UN DEPOSITO REGOLARE <ANNUALITÀ')" 


30 INPUT N 

90 PRINT “NUMERO DI ANNI, MESI"; 

100 INPUT V0,M 

104 REM - CALCOLA GLI ANNI DAGLI ANNI E MESl 

105 V=<12#Y0+M)/12 

103 REM - CALCOLA IL TASSO DI ITERESSE PER IL DEPOSITO, 


130 END 
READV. 


4 





DEPOSITO REGOLARE 


Questo programma calcola l’ammontare di un deposito regolare necessario 
al fine di fornire un determinato valore futuro in un periodo di tempo specifico. 
Tutti i depositi sono uguali. È necessario fornire il valore futuro, il tasso di 
interesse nominale, il numero di depositi per anno e il numero di anni. 

Il calcolo del deposito regolare è basato sulla seguente formula: 


R = T 


UN X 
(1 +HN) n ' y - 1 / 


dove: 


R = ammontare del deposito regolare 

T = valore futuro 

i = tasso di interesse nominale 

N = numero di depositi per anno 

Y = numero di anni. 


Esempio: 

Maria vuole avere $ 1000 sul suo conto alla fine di un anno. Quanto dovrà 
depositare ogni mese all’8% di interesse perchè ciò si verifichi? 


DEPOSITO REGOLARE 

VALORE TOTALE DOPO V ANNI? 1000 

TASSO NOMINALE DI INTERESSE ? S 

NUMERO DI DEPOSITI PER ANNO? 12 

NUMERO DI ANNI? 1 

DEPOSITO REGOLARE = * 80.32 

ALTRI DATI ? <1=SI,0=NO>? 0 


Listing del programma 

10 PRINT "DEPOSITO REGOLARE"; 

20 PRINT 

23 REM - LE ISTRUZIONI DA 30 A 100 RICHIEDONO L'INTERVENTO DELL'UTENTE 
30 PRINT "VALORE TOTALE DOPO V ANNI"; 

40 INPUT T 

50 PRINT "TASSO NOMINALE Dr INTERESSE"; 

SO INPUT I 

70 PRINT "NUMERO DI DEPOSITI PER ANNO"; 

80 INPUT N 

30 PRINT "NUMERO DI ANNI"; 

100 INPUT V 

108 REM - CALCOLA IL TASSO DI INTERESSE PER IL DEPOSITO 
103 REM - CONVERTI DA PERCENTO IN DECIMALI 
110 I=I/N/1G0 

113 REM - CALCOLA IL TOTALE DEL DEPOSITO REGOLARE CON LA FORMULA 
120 R=T*I/ < <1 +1 > t<N*V)-1) 

123 REM - ARROTONDA ALLE CENTINAIA, STAMPA 
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130 PRINT "DEPOSITO REGOLARE = INT<R*100+.5V100 

133 REM - STAMPA UNA LINEA BIANCA PER SEPARARE I DATI DALLA DOMANDA 

143 REM N - RIPARTI 0 FINISCI IL PROGRAMMA ? SI RICHIEDE L'INTERVENTO DELL'UTENTE 
150 PRINT "ALTRI DATI ? <1«$I,0=NO> 

160 INPUT x 

ITO IF X=1 THEN GOTO 20 
130 END 


OPZIONE 

È possibile introdurre il termine dell’investimento in anni e mesi anziché in 
anni. Il programma va variato come nell’esempio successivo. 


Esempio: 

Ed vuole risparmiare $ 2000 al fine.di acquistare una nuova moto. Vuol 
giungere a questa somma in 1 anno e 5 mesi. Quanto dovrà depositare ogni mese 
se l’interesse è dell’8%? 


DEPOSITO REGOLARE 
VALORE TOTALE DOPO V ANNI? 2000 
TASSO NOMINALE DI INTERESSE? 8 
NUMERO DI DEPOSITI PER ANNO? 12 
NUMERO DI ANNI,MESI? 1 , 5 
DEPOSITO REGOLARE = * 111.5 

ALTRI DATI ? <1=SI,0=NO>? 0 


i orie 

1 REM OPZIONE 30-105 
10 PRINT "DEPOSITO REGOLARE"; 


30 INPUT N 

90 PRINT "NUMERO DI ANNI,MESI"; 

100 INPUT V0,M 

104 REM - CALCOLA GLI ANNI DAGLI ANNI E MESI 

105 V=(12#V0+M)/12 

108 REM - CALCOLA IL TASSO DI INTERESSE PER IL DEPOSITO 


180 END 
REhDV. 
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PRELIEVI REGOLARI DA UN INVESTIMENTO 

Questo programma calcola il massimo ammontare che può essere prelevato 
con regolarità da un investimento su un periodo di tempo specifico. Tutti i prelievi 
sono uguali. Bisogna fornire l’ammontare dell’investimento iniziale, il tasso di 
interesse nominale, il numero di prelievi per anno ed il numero di anni. 

Il massimo ammontare di prelievi è fornito dalla seguente formula: 


R 


i/N 


,(1 +i/N ) N ‘ Y -1 



dove: 


R = ammontare del prelievo regolare 

P = investimento iniziale 

i = tasso di interesse nominale 

N = numero di prelievi per anno 

Y = numero di anni. 


Poiché questo programma calcola il totale massimo, alla fine del periodo si 
dovrà avere un bilancio di $ 0. È possibile prelevare un minore ammontare sotto le 
stesse specifiche, in tal caso sul conto si avrà un bilancio rimanente. 

Esempio: 

Davide investe $ 8000 al 9,5 %. Egli pensa di effettuare un prelievo regolare 
ogni mese per 10 anni, lasciando un bilancio finale nullo. Quanto dovrà prelevare 
ogni volta? 

-RELIEVI REGOLARI lift UN INVESTIMENTO 
INVESTIMENTO INIZIALE? 8000 
TASSO NOMINALE DI INTERESSE? 3.5 
NUMERO DI PRELIEVI PER ANNO? 12 
NUMERO DI ANNI? 10 

AMMONTARE DI OGNI PRELIEVO = t 103.52 
ALTRI DATI ? <1=SI,3=N0>? 0 


Listing del programma 

10 PRINT "PRELIEVI REGOLARI DA UN INVESTIMENTO"; 

20 PRINT 

29 REM - LE ISTRUZIONI DA 30 A 130 RICHIEDONO L'INTERVENTO DELL'UTENTE 

30 PRINT "INVESTIMENTO INIZIALE"; 

40 INPUT P 

50 PRINT "TASSO NOMINALE DI INTERESSE"; 

60 INPUT I 
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70 PRINT "NUMERO DI PRELIEVI PER ANNO"; 

30 INPUT N 

30 PRINT " 'TASSO * 1 DI ANNI"; 

100 INPUT V 

108 REM - CALCOLA IL TASSO JìT INTERESSE PER IL PRELIEVO 

109 REM - CONVERTI DA PERCENTO IN DECIMALI 

110 I=I/N/100 

113 REM - CALCOLA IL PRELIEVO REGOLARE DALLA FORMULA 
120 R=P#<I/<<l+I)t<N*V>-l>+I> 

129 REM - ARROTONDA AL CENTESIMO, STAMPA 

130 PRINT "AMMONTARE DI OGNI PRELIEVO = INT<R*100+.5>/100 

139 REM - SCAMPA UNA LINEA BIANCA PER SEPARARE I DAT! DALLE DOMANDE 

140 PRINT 

149 REM - RIPARTI 0 TERMINI IL PROGRAMMA? SI RICHIEDE L'INTERVENTO DELL'UTENTE 

150 PRINT "ALTRI DATI ? <1=SI,0=NO>"; 

160 INPUT X 

170 IF X=1 THEN GOTO20 
130 END 


OPZIONE 

Può essere più conveniente introdurre il periodo di investimento in anni e 
mesi anziché solo in anni. I cambiamenti necessari sul programma sono mostrati 
nel successivo esempio. 

Esempio: 

Quanto di potrà prelevare ogni settimana se si dispone di un investimento di $ 
8000 al 9,5% di interesse e i prelievi si effettueranno per 10 anni e 5 mesi? 


PRELIEVI REGOLARI DA UN INVESTIMENTO 
INVESTIMENTO INIZIALE? 3000 
TASSO NOMINALE DI INTERESSE? 9.5 
NUMERO DI PRELIEVI PER ANNO? 52 
NUMERO DI ANNI,MESI? 10 , 5 
AMMONTARE DI OGNI PRELIEVO = * 23.23 

ALTRI DATI ? <1=SI,0=NO>? 0 


Ok>z i one 

1 REM OPZIONE 90-105 

10 PRINT "PRELIEVI REGOLARI DA UN INVESTIMENTO"; 


80 INPUT N 

90 PRINT "NUMERO DI ANNI,MESI"; 

100 INPUT V0,M 

104 REM - CALCOLA GLI ANNI DAGLI ANNNI E MESI 

105 V=<12#V0+M>/12 

108 REM - CALCOLA IL TASSO DI INTERESSE PER IL PRELIEVO 


180 END 
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INVESTIMENTO INIZIALE 


Questo programma calcola l’investimento necessario per fornire un determi¬ 
nato valore futuro in uno specifico periodo di tempo. Bisogna introdurre il valore 
futuro dell’investimento, il numero di anni dell’investimento, il numero di periodi 
composti per anno e il tasso di interesse nominale. 

La formula usata per calcolare l’investimento iniziale è la seguente: 

T 

p = - 

(1 +i/N) N ' Y 


dove: 


P = investimento iniziale 

T = valore futuro 

N = numero di periodi composti per anno 

Y = numero di anni 

i = tasso di interesse nominale. 


Esempi: 

Quanto dovrete investire all’8,5% per avere $ 10000 dopo 10 anni se l’interes¬ 
se è composto trimestralmente? 

La Merchant Savings vuol vendere una obbligazione che varrà $ 5000 dopo 5 
anni della data d’acquisto. L’interesse del 7,9 % sarà composto giornalmente. 
Quale sarà l’investimento iniziale per l’obbligazione? 

INVESTIMENTO INIZIALE 

VALORE TOTALE DOPO V ANNI? 10000 

NUMERO DI PERIODI COMPOSTI PER ANNO? 4 

NUMERO DI ANNI? 10 

TASSO NOMINALE DI INTERESSE? 8.5 

INVESTIMENTO INIZIALE = * 4312.38 

ALTRI DATI ? <1=SI,0=NO>? 1 

VALORE TOTALE DOPO V ANNI? 5000 
NUMERO DI PERIODI COMPOSTI PER ANNO? 365 
NUMERO DI ANNI? 5 
TASSO NOMINALE DI INTERESSE? 7.9 
INVESTIMENTO INIZIALE = t 3368.54 

ALTRI DATI ? <1=31,8=N0)? 0 


Listing del programma 

10 PRINT "INVESTIMENTO INIZIALE"; 

20 PRINT 

29 REM - LE ISTRUZIONI DA 30 A 180 RICHIEDONO L'INTERVENTO DELL UTENTE 

30 PRINT "VALORE TOTALE DOPO V ANNI"; 

40 INPUT T 

50 PRINT "NUMERO DI PERIODI COMPOSTI PER ANNO"; 

60 INPUT N 
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70 PRINT "NUMERO DI ANNI"; 

80 INPUT V 

90 PRINT "TASSO NOMINALE DI INTERESSE"; 

100 INPUT I 

108 REM - CALCOLA LA II. TASSO INTERESSE PER PERIODO 

109 REM - COVERTI DA PERCENTO A DECIMALI . 

110 1 = 1 / 11/100 

119 REM - CALCOLA L'INTERESSE INIZIALE CON LA FORMULA 

120 P=T/(1*I)T(N*V) 

130 PRINT "INVESTIMENTO INIZIALE = * " ; INT<P*T0O+.5).'100 

139 REM - STAMPA UNA LINEA BIANCA PER SEPARARE I DATI DALLE DOMANDE 

140 PRINT 

149 REM - RIPARTI 0 TERMINI IL PROGRAMMA 3 SI RICHIEDE L'INTERVENTO DELL'UTENTE 

150 PRINT "ALTRI DATI ? <1=31.0»NO>"; 

160 INPUT X 

170 IF X=1 THEN GOTO 20 
1S0 END 


OPZIONE 

Il programma precedente permette di introdurre il periodo di investimento in 
anni o in parti decimali di anni. Si può introdurre il periodo in anni e mesi anziché 
solo in anni. I cambiamenti necessari nel programma sono mostrati neH’esempio 
seguente. 

Esempio: 

Maria vuole investire una somma in un libretto di risparmio. In 3 anni e 8 
mesi vuole avere $ 4000 sul suo conto. Se l’interesse dell’8% è composto mensil¬ 
mente, quanto dovrà investire? 

INVESTIMENTO INIZIALE 

VALORE TOTALE DIANNO' ANNI? 4000 

NUMERO DI PERIODI COMPOSTI PER ANNO ? 12 

NUMERO DI ANNI.MESI? 3 , 3 

TASSO NOMINALE DI INTERESSE? 8 

INVESTIMENTO INIZIALE = t 2936 

ALTRI DATI ? <1=SI,3=N0>? 0 


CiP'Z i one 


1 REM - OPZIONE 70-85 

10 PRINT "INVESTIMENTO INIZIALE"; 


£0 INPUT N 

70 PRINT "NUMERO DI ANNI.MESI"; 

80 INPUT V0.-M 

34 REM - CALCOLA GLI ANNI DAGLI ANNI E MESI 

35 V=(12*V0+M)/12 

90 PRINT "TASSO NOMINALE DI INTERESSE"; 


130 END 
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MINIMO INVESTIMENTO PER PRELIEVI 


Questo programma calcola il minimo investimento richiesto per permettere 
dei prelievi regolari su un periodo di tempo specificato. L’ammontare calcolato 
dipende dall’ammontare di ogni prelievo, dal numero di prelievi per anno dal 
numero di anni, e dal tasso di interesse nominale dell’investimento. 

Tutti i prelievi sono uguali. 

Solo l’ultimo ammontare necessario per l’investimento è calcolato; il pro¬ 
gramma considera un bilancio finale di $ 0. Ogni investimento maggiore di quello 
calcolato lascia un bilancio restante. 

Assumendo che l’interesse è composto con ogni prelievo, il calcolo è basato 
sulla seguente formula: 


(1 +i/N) N ' Y 



dove: 


P = investimento iniziale 

R = ammontare del prelievo regolare 

i = tasso di interesse nominale 

N = numero di prelievi per anno 

Y = numero di anni. 


Esempio: 

Quanto si deve investire al 6% d’interesse al fine di permettere un prelievo 
mensile di $ 100 per 5 anni? 

MINIMO INVESTIMENTO PER PRELIEVI 

AMMONTARE DEL PRELIEVO? 10@ 

TASSO NOMINALE DI INTERESSE? 6 
NUMERO DI PRELIEVI PER ANNO? 12 
NUMERO DI ANNI? 5 
MINIMO INVESTIMENTO = t. 5172.56 


ALTRI DATI <1=SI,0=NO>? 0 
READ? 


Listing del programma 

10 PRINT "INVESTIMENTO MINIMO PER PRELIEVI" 

20 PRINT 

28 REM - LE RIGHE DALLA 30 ALLA 100 RICHIEDONO L'INTRODUZIONE DI DATI DA PARTE 

29 REM - DELL'UTENTE 

30 PRINT "AMMONTARE DEL PRELIEVO"; 

40 INPUT R 

50 PRINT "TASSO NOMINALE DI INTERESSE"; 

60 INPUT I 
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70 PRINT "NUMERO DI PRELIEVI PER ANNO"; 

30 INPUT N 

30 PRINT "NUMERO DI ANNI"; 

100 INPUT V 

!09 REM - CONVERTI DA PERCENTUALE IN DECIMALI 
110 1 = 1/100 

113 REM - CALCOLA IL MINIMO INVESTIMENTO TRAMITE LA FORMULA 
120 p=R*N/i*a-i/<a+i/N>tomo>> 

123 REM - ARROTONDA AL CENTESIMO- STAMPA 

130 PRINT "MINIMO INVESTIMENTO = *.IHT<100*P+.51/100 

133 REM - STAMPA UNA RIGA BIANCA PER SEPARARE I DATI DALLA DOMANDA 

140 PRINT 

149 REM - RIPARTI 0 TERMINI IL PROGRAMMA? SI RICHIEDE L'INTERVENTO DELL'UTENTE 

150 PRINT "ALTRI DATI <1=SI-0=NO>"; 

160 INPUT X 

170 IF X=1 THEN 20 
180 END 
READV. 


OPZIONE 

Può essere utile introdurre il termine dell’investimento in anni e mesi anziché 
in anni. Il programma andrà, in tal caso, variato come viene mostrato nel seguente 
esempio. 


Esempio: 

Tony preleva $ 250 mensilmente per 6 anni e 5 mesi. Quanto sarà l’investi¬ 
mento iniziale al 6% di interesse? 


INVESTIMENTO MINIMO PER PRELIEVI 

AMMONTARE DEL PRELIEVO? 250 
TASSO NOMINALE DI INTERESSE? 6 
NUMERO DI PRELIEVI PER ANNO? 12 
NUMERO DI ANNI- MESI? 6 - 5 
MINIMO INVESTIMENTO = t 15944.81 

ALTRI DATI <1=SI-0=NO>? 0 


Cm-z i one 
1 REM - OPZIONE 30-105 

10 PRINT "INVESTIMENTO MINIMO PER PRELIEVI" 


80 INPUT N 

30 PRINT "NUMERO DI ANNI- MESI"; 

100 INPUT V0-M 

104 REM - CALCOLA GLI ANNI IN BASE AGLI ANNI ED AI MESI 

105 V=(12*V0+M)/12 

109 REM - CONVERTI DA PERCENTUALE IN DECIMALI 


ISO END 
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TASSO DI INTERESSE NOMINALE 
SU UN INVESTIMENTO 


Questo programma calcola il tasso di interesse nominale per un dato investi¬ 
mento iniziale che consente un conosciuto valore futuro in un periodo di tempo 
conosciuto. Il tasso di interesse nominale è normalmente suddiviso al fine di 
permettere la sua composizione. 

Il tasso di interesse nominale è basato sulla seguente formula: 


/ 


N(T/P) 


7vV 


N 


dove: 


i = tasso di interesse nominale 

P = investimento iniziale 

T = valore futuro 

N = numero di periodi composti per anno 

Y = numero di anni. 


Il tasso di interesse nominale è espresso come tasso annuale anche se si usa 
i/N come tasso d’interesse nel caso di interesse composto. Il tasso di interesse 
nominale sarà minore del tasso di interesse effettivo quando l’interesse è compo¬ 
sto più di una volta all’anno. Ciò perchè il tasso nominale non tiene conto 
dell’interesse composto sull’interesse guadagnato nei vari periodi di ogni anno. 
Per esempio, la scheda dell’interesse guadagnato su $ 100 al 5% composto 
trimestralmente sarà: 


PERIODO 

BILANCIO 

i/100 

INTERESSE 

NUOVO 



N 


BILANCIO 

1 

$ 100 

0,0125 = 

$ 1,25 

$ 101,25 

2 

$ 101,25 

0,0125 = 

$ 1,27 

$ 102,52 

3 

$ 102,52 

0,0125 = 

$ 1,28 

$ 103,80 

4 

$ 103,80 . 

0,0125 = 

$ 1,30 

$ 105,10 


Il tasso d’interesse effettivo nell’esempio è di 5,1 %, tuttavia il tasso nominale 
è del 5%. 
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Esempi: 

Jane investe $ 945 in un libretto di risparmio. Quattro anni e mezzo dopo il 
suo capitale è di $ 1309,79. Se l’interesse è composto mensilmente quale è il tasso 
di interesse nominale offerto dalla banca? 

Disk investe $ 3000. Dopo 10 anni ha guadagnato $ 1576 di interesse. Se 
l’interesse è composto ogni mese, qual’è il tasso di interesse nominale sul conto? 

rflSSO DI INTERESSE NOMINOLE SU UN INVESTIMENTO 

CAPITOLE? 945 
VALORE TOTALE? 1309.79 
NUMERO DI ANNI? 4.5 

NUMERO DI PERIODI COMPOSTI PER ANNO? 12 
TOSSO DI INTERESSE NOMINOLE = 7.27613009 fi 

ALTRI DOTI? <1=SI, 0=NO>? 1 

CAPITOLE? 3000 
VALORE TOTALE? 4576 
NUMERO DI ANNI? 10 

NUMERO DI PERIODI COMPOSTI PER ANNO? 12 
TOSSO DI INTERESSE NOMINOLE = 4.2295659 fi 

ALTRI DOTI? (1=31.. 0=HOi? 0 


Listing del programma 

10 PRINT "TOSSO NOMINOLE DI INTERESSE SU UN INVESTIMENTO" 

?! REM H - LE RIGHE DALLO 30 ALLO 100 RICHIEDONO L'INTRODUZIONE DI DOTI DA PORTE 

29 REM - DELL'UTENTE 

30 PRINT "CAPITOLE"; 

40 INPUT P 

50 PRINT "VALORE TOTALE"; 

60 INPUT T 

70 PRINT "NUMERO DI ANNI"; 

30 INPUT V 

90 PRINT "NUMERO DI PERIODI COMPOSTI PER ANNO"; 

100 INPUT N 

109 REM - CALCOLA IL TASSO NOMINOLE DI INTERESSE TRAMITE LA FORMULO, STAMPO 

110 I2=N*((T/F>t<l/(N*V>)-l>*100 

120 PRINT "TOSSO DI INTERESSE NOMINOLE =";I2;“fi" 

129 REM - STAMPO UNO RIGA BIANCO PER SEPARARE I DOTI DALLO DOMANDO 

130 PRINT 

139 REM - RIPARTI 0 TERMINI IL PROGRAMMA? SI RICHIEDE L'INTERVENTO DELL'UTENTE 

140 PRINT "ALTRI DOTI? (1=SI, 0=NOV’; 

150 INPUT X 

160 IF X=1 THEN 20 
170 END 
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TASSO DI INTERESSE EFFETTIVO 
SU UN INVESTIMENTO 


Questo programma calcola l’effettivo tasso d’interesse per un investimento 
iniziale conosciuto che permette un prestabilito valore futuro in un periodo di 
tempo specifico. Questo tasso esprime il tasso attuale di interesse guadagnato 
annualmente sull’investimento. 

Il tasso di interesse effettivo è calcolato dalla seguente formula: 


tasso d’interesse effettivo = 


valore futuro 


.investimento iniziale 


l/anni 

—1 


È possibile calcolare il tasso di interesse effettivo sull’ammontare dell’investi¬ 
mento e dell’interesse derivato. Oppure si può calcolare il tasso di interesse 
effettivo necessario per far si che il capitale raggiunga un valore ipotetico in uno 
specifico periodo di tempo. Per esempio, investendo $ 5000 in una banca e 
desiderando $ 6800 dopo sei anni, si può predire quale tasso di interesse effettivo 
dovrà pagare la banca per permettere di raggiungere il capitale prefissato. 

Il tasso di interesse effettivo può anche essere usato per calcolare la percen¬ 
tuale effettiva di deprezzamento di un investimento. Nel caso di un’auto, ad 
esempio, se la si acquista per $ 7534 e la si rivende per $ 3555 dopo tre anni, si 
ricava che il deprezzamento attuale (tasso di interesse negativo) è circa del 22% 
all’anno. 


Esempi: 

Jane deposita $ 945 su un libretto di risparmio. Quattro anni e mezzo dopo il 
suo conto è di $ 1309,79. Attualmente quale percentuale del suo investimento 
iniziale paga la banca annualmente? 

Dick ha acquistato la sua auto nel 1970 per $ 7534,84 la vende nel 1973 per $ 
3555. Qual’è il tasso effettivo di deprezzamento? 


'fisso DI INTERESSE EFFETTIVO SU UH INVESTIMENTO 

INVESTIMENTO INIZIfiLE? 945 
VfiLORE TOTALE DOPO V ANNI? 1309.79 
NUMERO DI ANNI? 4.5 

TASSO DI INTERESSE ANNUO = 7.52375279 X 
ALTRI DATI? <1=SI, 0=NO>? 1 
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INVESTIMENTO INIZIALE? 7534.34 
VALORE TOTALE DOPO V ANNI? 3555 
NUMERO DI ANNI? 3 

TASSO DI INTERESSE ANNUO =-22. 1506143 V. 
ALTRI DATI? <1=SI, 0=N0>? 0 


Listing del programma 

10 PRINT "TASSO EFFETTIVO DI INTERESSE SU UN INVESTIMENTO" 

20 PRINT 

23 REM - LE RIGHE DALLA 30 ALLA S0 RICHIEDONO L'INTRODUZIONE DI DATI DA PARTE 

29 REM - DELL'UTENTE 

30 PRINT "INVESTIMENTO INIZIALE"; 

40 INPUT P 

50 PRINT "VALORE TOTALE DOPO V ANNI": 

60 INPUT T 

70 PRINT "NUMERO DI ANNI"; 

30 INPUT V 

89 REM - CALCOLA L'EFFETTIVO TASSO DI INTERESSE, STAMPA 

90 PRINT "TASSO DI INTERESSE ANNUO ="; <<T/P>t<l/V>-1 >#100; 

100 PRINT 

109 REM - STAMPA UNA RIGA FIANCA PER SEPARARE I DATI DALLA DOMANDA 

110 PRINT "ALTRI DATI? <1=SI, 0=NO>"; 

120 INPUT !< 

130 IF X=1 THFN 20 
140 END 
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TABELLA DELL’INTERESSE GUADAGNATO 


Questo programma calcola e stampa una tabella degli interessi guadagnati su 
un investimento. La scheda contiene le seguenti uscite: 

1) Bilancio periodico 

2) Interesse accumulato fra due periodi 

3) Interesse totale accumulato 

4) Tasso di interesse effettivo 

Queste uscite possono essere calcolate per un singolo investimento o per un 
investimento iniziale con depositi regolari o prelievi. Se la tabella è tabulata per un 
singolo investimento, si devono fornire l’ammontare dell’investimento iniziale, il 
tasso di interesse nominale, e il numero di periodi composti per anno. Il nuovo 
bilancio sarà stampato per un massimo di quattro volte per anno. Se l’interesse è 
composto per un numero di periodi all’anno minore di quattro il nuovo bilancio 
sarà stampanto ad ogni computazione d’interesse. 

Se la scheda viene tabulata per depositi o prelievi regolari, bisogna fornire 
l’ammontare dell’investimento iniziale, il tasso di interesse nominale, il numero di 
depositi o prelievi per anno ed il loro ammontare. In tal caso si assume che 
l’interesse venga composto giornalmente (360 giorni per anno). Il nuovo bilancio 
viene stampato ad ogni deposito o prelievo. 


Esempi: 

Sally investe $ 2000 al 9,5% per 10 anni. L’interesse è composto mensilmente. 
Quale sarà il suo bilancio e l’interesse guadagnato negli ultimi due anni? 

John deposita $ 1000 all’8%. Ogni mese egli deposita su questo conto $ 50. 
Quale sarà la tabella dell’interesse guadagnato su cinque anni per questo conto? 

Ted deposita $ 1000 all’8%. Trimestralmente egli effettua un prelievo di $ 
150. Quale sarà la tabella dell’interesse guadagnato su un anno per questo conto? 


TABELLA DELL' INTERESSE GUADAGNATO 
CAPITALE? 2000 

TASSO DI INTERESSE NOMINALE? 9.5 
NUMERO DI DEPOSITI/PRELIEVI PER ANNO? 0 
NUMERO DI PERIODI COMPOSTI PER ANNO? 12 
CON QUALE ANNO INIZI? 9 
LA STAMPA TERMINA CON QUALE ANNO? 10 
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TABELLA BELL'INTERESSE GUADAGNATO 
CAPITALE t 2000 AL 9.5 V. NOMINALE PER 10 ANNI 

TASSO BI INTERESSE EFFETTIVO 9.92 % PER ANNO 
ANNO BILANCIO INTERESSE INTERESSE NCCUM. 

9 4365.S7 2365.86 2365.87 

4470.38 104.51 2470.38 

4577.39 107.01 2577.39 

4636.97 109.58 2686.97 

10 4799.17 112.2 2799.17 

4914.06 114.SS 2914.06 

5031.7 117.64 3031.7 

5152.15 120.45 3152.15 

CAMBI BATI E RICALCOLI? (1=SI, 0=NO>? 1 


CAPITALE? 1000 

TASSO BI INTERESSE NOMINALE? 8 

NUMERO BI BEPOSITI/PRELIEVI PER ANNO? 12 

TOTALE BEI BEPOSITI/PRELIEVI? 50 

CON QUALE ANNO INIZI? 1 

LA STAMPA TERMINA CON QUALE ANNO? * 


TABELLA BELL'INTERESSE GUABAGNATO 
CAPITALE » 1000 AL 3 K NOMINALE PER 1 ANNI 
BEPOSITI/PRELIEVI REGOLARI * 50 12 VOLTE ALL'ANNO 

TASSO BI INTERESSE EFFETTIVO 8.33 PER ANNO 


ANNO 

BILANCIO 

INTERESSE 

INTERESSE ACCUM, 

1 

1056.7 

6.7 

6.7 


1113.78 

7.08 

13.78 


1171.24 

7.46 

21.24 


1229.08 

7.34 

29.03 


1287.32 

3.23 

37.32 


1345.94 

3.62 

45.94 


1404.95 

9.01 

54.95 


1464.36 

9.41 

64.36 


1524.17 

9.31 

74.17 


1584.38 

10.21 

84.33 


1644.98 

10.61 

94.98 


1706 

11.01 

106 

CAMBI 

BATI E RICALCOLI 

? <1=SI, 0= 

=NO>? 1 


CAPITALE? 1000 

TASSO BI INTERESSE NOMINALE? 8 
NUMERO BI BEPOSITI/PRELIEVI PER ANNO? 4 
TOTALE BEI BEPOSITI/PRELIEVI7-150 
CON QUALE ANNO INIZI? 1 
LA STAMPA TERMINA CON QUALE ANNO? 1 
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T ABELLA DELL'INTERESSE GUADAGNATO 
CAPITALE * 1060 AL 3 NOMINALE PER 1 ANNI 
DEPOSITI,'PRELIEVI REGOLARI *-150 4 VOLTE ALL'ANNO 

TASSO DI INTERESSE EFFETTIVO 8.33 V. PER ANNO 


ANNO 


CAMBI 


BILANCIO INTERESSE 

370.1? 20.17 

'37.71 17.54 

502.58 14.87 

464.72 12.14 

DATI E RICALCOLI? <1=SI, 0=NO>? 


INTERESSE ACCUM 

20.17 

37.71 
52.5S 

64.72 


Listing del programma 

4 REM - FUNZIONE DI ARROTONDAMENTO 

5 DEFFNR'X >=INT < X*100+.5 V100 

10 PRINT "TABELLA DELL INTERESSE GUADAGNATO" 

20 PRINT 

28 REM - LE RIGHE DALLA 30 ALLA 230 RICHIEDONO L'INTRODUZIONE DI DATI DA PARTE 
23 REM - DELL'UTENTE 
30 PRINT "CAPITALE"; 

40 INPUT P 

50 PRINT "TASSO DI INTERESSE NOMINALE"; 

50 INPUT I 

63 REM - CONVERTI DA PERCENTUALE IN DECIMALE 
70 1=1/100 

30 PRINT "NUMERO DI DEPOSITI.'PRELIEVI PER ANNO": 

SO INPUT NI 

33 REM - NON DOMANDA L'AMMONTARE SE LA FREQUENZA E' NULLA 
100 IF N1=0 THEN 160 

10S REM - I DEPOSITI VANNO INTRODOTTI COME NUMERI POSITIVI 
103 REM - I PRELIEVI VANNO INTRODOTTI COME NUMERI NEGATIVI 
110 PRINT "TOTALE DEI DEPOSITI/PRELIEVI"; 

120 INPUT R 

123 REM - L'INTERESSE E' COMPOSTO GIORNALMENTE 
230 N-360 

;33 REM - STAMPA CIASCUN DEPOSITO/PRELIEVO 
148 L2=N1 
ISO GOTO 200 

160 PRINT "NUMERO DI PERIODI COMPOSTI PER ANNO"; 

170 INPUT N 
180 N1=0 

183 REM - STAMPA QUATTRO VOLTE PER ANNO 
130 L2=4 

200 PRINT "CON QUALE ANNO INIZI”; 

210 INPUT X 

220 PRINT "LA STAMPA TERMINA CON QUALE ANNO"; 

230 INPUT V 

239 REM - LA STAMPA INIZIA ALL'INIZIO DELL'ANNO 

240 X=INT<X> 

249 REM - INIZIALIZZA I TOTALI CORRENTI 

250 BO=P 
260 11=0 
270 12=0 
280 13=0 
290 K=66 
300 PI=4 

310 FOR JO=l TO INT(Y>+1 

319 REM - INIZIA LA STAMPA? 

320 IF JOCX THEN 480 

329 REM - TEST DI FINE PAGINA 

330 IF KC55 THEN 470 

338 REM - SPAZIA FINO ALLA NUOVA PAGINA, STAMPA L'INTESTAZIONE (66 RIGHE PER 

339 REM - PAGINA) 

340 FOR K1=K TO 66 
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350 FRINT 
360 NEXT K1 
370 K=6 

330 PRINT " TABELLA DELL'INTERESSE GUADAGNATO" 

390 PRINT " CAPITALE $";P; " AL"; 1*100; "V. NOMINALE PER";V; "ANNI " 

399 REM - SALTA BEPOSITI/PRELIEVI SE NON CE NE SONO 

400 IF N1=0 THEN 430 

410 PRINT "DEPOSITI/PRELIEVI REGOLARI *“;R;" ";N1;" VOLTE ALL'ANNO" 

419 REM - K E' IL CONTATORE AL NUMERO DI RIGHE STAMPATE 

420 K=K+1 

430 PRINT " TASSO DI INTERESSE EFFETTIVO";FNR<100*< C1+I/N>1N-1> >: 

431 PRINT PER ANNO" 

440 PRINT 

450 PRINT "ANNO BILANCIO INTERESSE INTERESSE ACCUM." 

459 REM - CALCOLA L'INTERESSE 

460 PRINT 

469 REM - STAMPA IL NUMERO DELL'ANNO 

470 PRINT JO; 

430 Ll=l 

490 N2=l 
500 P2=l 

510 FOR Jl = l TO N 

519 REM - ALTRI DEPOSITI/PRELIEVI QUEST'ANNO? 

520 IF N2>N1 THEN 560 

529 REM - TEMPO DI FARE DEPOSITI/PRELIEVI? 

530 IFN2/N1>J1/N THEN 560 

539 REM - CALCOLA IL NUOVO BILANCIO 

540 BO=BO+R 

549 REM - CONTA I DEPOSITI/PRELIEVI EFFETTUATI IN UN ANNO 

550 N2=N2+1 

560 B2=B0*<1+I/N> 

569 REM - Il=TOTALE INTERESSE PER OGNI PERIODO COMPOSTO 

570 I1=B2-BO 

579 REM - I3=T0TALE INTERESSE ACCUMULATO TRA LE REGISTRAZIONI 
530 13=13+11 

589 REM - 12=INTERESSE TOTALE ACCUMULATO ALLA DATA 

590 12=12+11 

599 REM - ARROTONDA ALL'INTERESSE DEL PERIODO DELLA REGISTRAZIONE 

600 IF P2/P1M1/N THEN 640 
610 I2=FNR<12) 

620 B2=FNR(B2) 

630 P 2=P2+1 

639 REM - ANNO DI INIZIO STAMPA? 

640 IF JO<X THEN 710 

549 REM - TEMPO DI STAMPARE UNA RIGA? 

650 IF J1/NCL1/L2 THEN 710 
660 L1=L1+1 

670 PRINTTAB<10>FNR(B2>TAB<23)FNR<I3>TAB<35>FNR<I2> 

678 REM - INTERESSE REGISTRATO, RI-INIZIALIZZA L'INTERESSE ACCUMULATO,TRA LE 
579 REM - REGISTRAZIONI 
630 13=0 
690 K=K+1 

593 REM - IL NUMERO DELL'ANNO VIENE STAMPATO CON LA SOLA PRIMA REGISTRAZIONE 

699 REM - IN OGNI ANNO 

700 PRINK 
710 B0=B2 

719 REM - NESSUN'ALTRA RIGA DA STAMPARE NELL'ULTIMO ANNO 

720 IF JO+Jl/N-l>=V THEN 780 
730 NEXT J1 

739 REM - INIZIA STAMPA? 

740 IF JO<X THEN 770 
750 PRINT 

760 K=K+1 
770 NEXT JO 
’80 PRINT 

739 REM - RIPARTI 0 TERMINI IL PROGRAMMA? 

790 PRINT "CAMBI DATI E RICALCOLI? <1=SI, 0=NO>"; 

300 INPUT Z 
S10 PRINT 

S20 IF Z=1 THEN 20 
340 END 
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QUOTA DI DEPREZZAMENTO 

Questo programma calcola la quota di deprezzamento annuale di un investi¬ 
mento. Si devono fornire il prezzo originale della voce, il suo prezzo di rivendita, e 
la sua età in anni. 

La quota di deprezzamento è calcolata dalla seguente formula: 

quota _ / prezzo di rivendita 

deprezzamento l prezzo originale 

Esempio: 

Joan aveva acquistato la sua auto per $ 4933,76 la rivende per $ 2400 dopo tre 
anni. Qual’è la quota di deprezzamento attuale? 

QUOTA DI DEPREZZAMENTO 

-•REZZO ORIGINALE? 4933.7é 
PREZZO DI VENDITA? 2400 
ANNI ? 3 

3UCTA DI DEPREZZAMENTO = 21.354 11 
ALTRI DATI Cl-SI. 8=N0>? 0 



Listing del programma 

10 -RINT "VUOTA DI DEPREZZAMENTO” 

28 -'RINT 

30 PRINT "PREZZO ORIGINALE"; 

-S INPUT P 

50 PRINT "PREZZO DI VENDITA"; 

SO INPUT T 
’8 PRINT “'ANNI"; 

30 INPUT V 

33 REM - CALCOLA LA QUOTA DI DEPREZZAMENTO TRAMITE LA FORMULA. CONVERTE 
39 REM - IN PERCENTUALE 
90 D= 100X1-< VP ) tC 1 /V > ) 

99 REM - ARROTONDAMENTO. STAMPA 

100 PRINT "QUOTA DI DEPREZZAMENTO ="; INT< 1000#D+. 5V1000; 

110 PRINT 

119 REM - RIFARTI 0 TERMINI IL PROGRAMMA? 

120 PRINT "ALTRI DATI <1=SI. 0=NO>"; 

130 INPUT X 

140 IF X=1 THEN 20 
150 END 


ì 
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AMMONTARE DEL DEPREZZAMENTO 


Questo programma calcola il totale deprezzamento in dollari dopo un dato 
numero di anni per investimenti soggetti a deprezzamento. Bisogna introdurre il 
prezzo originale deH’investimento, la sua quota di deprezzamento, e gli anni di 
deprezzamento. 

Il deprezzamento totale è calcolato dalla seguente formula: 


dove: 


D -p . / .(1 -i) Y ~ 1 

D = totale deprezzamento 

P = prezzo originale 

i = quota di deprezzamento 

Y = numero di anni di deprezzamento. 


Esempi: 

Joan acquista la sua auto per $ 4933,76. Se la quota media di deprezzamento 
annuale per quel modello è del 21%, quale sarà l’ammontare del deprezzamento in 
ogni anno durante i primi tre anni? 

Joan vuol conoscere anche il deprezzamento della cinghia di trasmissione 
della sua auto. Il suo prezzo due anni fa era di $ 155, la quota di deprezzamento è 
del 22%. Quale sarà il suo valore nel terzo anno? 


AMMONTARE DEL DEPREZZAMENTO 

PREZZO ORIGINALE? 4333.76 
.'«JOTA DI DEPREZZAMENTO? ZI 

—^DIGITARE ANNO=0 QUANDO NON DESIDERI PIU"' TOTALI PER QUESTA VOCE? — 
Anno? i 

DEPREZZAMENTO = r 1036.0? 

ANNO? Z | 

DEPREZZAMENTO = SIS. 51 

ANNO? 3 

DEPREZZAMENTO = t 646.62 
ANNO? 0 

ALTRI DATI <1=81, Q=NQ>? 1 

PREZZO ORIGINALE? 155 
QUOTA DI DEPREZZAMENTO? 22 

—.DIGITARE ANNQ=0 QUANDO NON DESIDERI PIU' TOTALI PER QUESTA VOCE?— 
ANNO? 3 

DEPREZZAMENTO = * 20.75 
ANNO? 0 

ALTRI DATI d=SI, 0=NO>? 0 
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flmrrion"tar'» cJ«s* 1 def>r'0ZZ3iri€ < n't:o 


10 PRINT "AMMONTARE BEL DEPREZZAMENTO" 

>0 FRINT 

30 PRINT "PREZZO ORIGINALE", 

40 INPUT P 

50 PRINT “QUOTA IH DEPREZZAMENTO"; 

*0 INPUT I 

53 REM - CONVERTE DA PERCENTUALE IN DECIMALE 
"0 1 = 1/100 

30 PRINT "—.DIGITARE ANNO=0 QUANDO NON DESIDERI PIU' TOTALI PER QUESTA VOC£>- 

30 PRINT "ANNO".. 

100 INPUT V 

103 REM - ALTRI CALCOLI PER QUESTA VOCE 
110 IF V=0 THEN 160 

113 REM - CALCOLA L'AMMONTARE DEL DEPREZZAMENTO TRAMITE LA FORMULA 
120 D=P*I*(1-I)T(V-L 

123 REM - ARROTONDAMENTO AL CENTESIMO, STAMPA 
ISO PRINT "DEPREZZAMENTO = INT<D*100+.5>/100 

140 PRINT 

143 REM - RICICLA PER IL NUMERO DELL'ANNO SUCCESSIVO 
100 GOTO 30 

i53 REM - RIPARTI 0 TERMINI IL PROGRAMMA? 

160 PRINT "ALTRI DATI <1=SI, 0=NO>“, 

170 INPUT X 

:SÙ IF X=1 THEN 20 

130 END 
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VALORE RISPARMIATO 


Questo programma calcola il valore risparmiato di una data voce alla fine di 
un dato anno. È necessario fornire l’età della voce, il suo prezzo originale, e la 
quota di deprezzamento. 

Il valore risparmiato si ottiene dalla seguente formula: 

S=P()-i) Y 


dove: 

S 

= valore risparmiato 


P 

= prezzo originale 


i 

= quota di deprezzamento 

Esempio: 

Y 

= età in anni. 


Qual’è il valore risparmiato dell’auto di Joan se tale auto ha tre anni, ed è 
stata acquistata a $ 4933,76 con un deprezzamento annuale del 21%? Quale sarà il 
valore risparmiato nel prossimo anno? 

La cinghia di trasmissione dell’auto di Joan è vecchia di due anni. Qual’è il 
valore risparmiato se essa è costata $ 155 e se la quota di deprezzamento è del 
22 %? 

VALORE RISPARMIATO 

PREZZO ORIGINALE? 4933.76 
QUOTA DI DEPREZZAMENTO? 21 

—■.DIGITARE ANNO=0 QUANDO NON DESIDERI PIU' VALORI PER QUESTA V'OCE)- 
ANNI? 3 

VALORE = * 2432.54 
ANNI? 4 

VALORE = * 1921.7 
ANNI? 0 

ALTRI DATI <1=SI, 0=NO>? 1 

PREZZO ORIGINALE? 155 
QUOTA DI DEPREZZAMENTO? 22 

—.DIGITARE ANN0=0 QUANDO NON DESIDERI PIU' VALORI PER QUESTA VOCE>- 
ANNI? 3 

VALORE = f 73.56 
ANNI? 0 

ALTRI DATI <1=SI, 0=NO>? 0 


Listing del programma 

10 PRINT “VALORE RISPARMIATO" 
20 PRINT 

30 PRINT “PREZZO ORIGINALE", 
40 INPUT P 
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50 PRIMI “QUOTA 01 DEPREZZAMENTO", 
c"0 INPUT 2 

"0 FRINÌ " — ■ DIGITARE ANHG=0 QUANDO NON DESIDERI PIU' VALORI PER QUESTA VOCE>- 
SU PRIMI "ANNI", 

."O INPUT V 

SS REM - CALCOLO UN ALTRO VALORE PER QUESTA VOCE 
100 IF V=ò IHEN 140 

:OS REM - CALCOLA IL VALORE RISPARMIATO TRAMITE LA FORMULA, ARROTONDA, STAMPA 
100 REM - LA QUOTA DI DEPREZZAMENTO VIENE CONVERTITA IN DECIMALI PER I CALCOLI 
110 PRINT “VALORE = fi INTC i00#P#a-I/100.>TV+. 5>/100 
ICO PRINT 

•CO REM - RICICLA PER IL NUMERO DtLL ANNO SUCCESSIVO 
ISO GOTO Su 

ISO REM - RIPARTI 0 TERMINI IL PROGRAMMA? 

140 PRINT “ALTRI DATI C1«3I, 0=NGV, 

150 INPUT 

160 IF K=1 THEN Z0 
ITO END 


26 



SCONTO DI UNA TRATTA COMMERCIALE 


Questo programma calcola l’ammontare dello sconto e il costo netto di una 
tratta commerciale. Si devono introdurre il valore futuro della tratta, la quota di 
sconto e il numero di giorni alla maturazione. 

Le formule usate per calcolare lo sconto e il costo sono le seguenti: 

D N 

sconto = T • - • — 

100 360 

costo = T — sconto 


dove: 

T 

= valore futuro totale 


D 

= quota di sconto 


N 

= numero di giorni alla maturazione. 

Esempio: 




La Canning Corporation acquista una tratta commerciale di $ 625000 paga¬ 
bile in 60 giorni al 5,4%. Quali sono lo sconto ed il costo? 

SCONTO DI UNfi TROTTO COMMERCIOLE 

VALORE FUTURO? 625006 
TOSSO DI SCONTO? 5.4 
GIORNI ALLO MATURAZIONE? 60 
SCONTO = * 5625 
COSTO = t 619375 

ALTRI DATI <1=SI, 0=NO>? 0 


Listing del programma 

10 PRINT "SCONTO DI UNA TRATTA COMMERCIALE" 

20 PRINT 

29 REM - LE RIGHE DALLA 30 ALLA 90 RICHIEDONO L'INTERVENTO DELL'UTENTE 

30 PRINT "VALORE FUTURO", 

46 INPUT T 

50 PRINT “TASSO DI SCONTO".: 

68 INPUT D 

69 REM - CONVERTI DA PERCENTUALE IN DECIMALE 

70 D=D/100 

S0 PRINT "GIORNI ALLA MATURAZIONE"; 

90 INPUT N 

99 REM - CALCOLA LO SCONTO, STAMPA 

100 Dl=T*D*N/360 

110 PRINT "SCONTO = t";Dl 

119 REM - CALCOLA IL COSTO, STAMPA 
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120 PRINT “ COSTO = *";T-D1 

129 REM - STAMPA UNA RIGA BIANCA PER SEPARARE I DATI DALLA DOMANDA 

130 PRINT 

139 REM - IL PROGRAMMA RIPARTE 0 TERMINA? SI RICHIEDE L'INTERVENTO DELL'UTENTE 

140 PRINT “ALTRI DATI (1=31, 0=NO>“; 

150 INPUT X 

160 IF X=1 THEN 20 
170 END 
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CAPITALE SU UN PRESTITO 


Questo programma calcola l’ammontare iniziale preso in prestito. Questo 
ammontare è dipendente dal tasso di interesse, l’ammontare dei pagamenti rego¬ 
lari, il numero di pagamenti per anno ed il termine del prestito. 

Il calcolo è basato sulla formula: 


dove: 


P 

R 

i 

N 

Y 


P 


R -/V 
/ 


1 - 


(i +HN)N-Y 


= capitale 

= pagamenti regolari 
= tasso di interesse annuale 
= numero di pagamenti per anno 
= numero di anni. 


Esempio: 

Susan deve pagare $ 250 ogni due mesi per tre anni al fine di restituire un 
prestito al 20% di interesse. Quale era l’ammontare del prestito? 

Tom può pagare $ 180 al mese per risarcire un prestito. Se egli pensa di 
restituire il prestito in quattro anni e mezzo, e la compagnia che fornisce il prestito 
richiede il 16% d’interesse, quale sarà il massimo ammontare che Tom può 
prendere in prestito? 

CAPITALE SU DI UN PRESTITO 

PAGAMENTO REGOLARE? 250 
TERMINE IN ANNI? 3 
TASSO DI INTERESSE ANNUALE? 20 
NUMERO DI PAGAMENTI PER ANNO? 6 
CAPITALE = t 3343.45 

ALTRI DATI <1=SI, 0=NO>? 1 

PAGAMENTO REGOLARE? 180 
TERMINE IN ANNI? 4.5 
TASSO DI INTERESSE ANNUALE? 16 
NUMERO DI PAGAMENTI PER ANNO? 12 
CAPITALE = t 6397.51 

ALTRI DATI <1=SI, 0=NO>? 0 


Listing del programma 

10 PRINT “CAPITALE SU DI UN FRESTITO" 

20 PRINT 

29 REM - LE RIGHE DALLA 30 ALLA 100 RICHIEDONO L'INTERVENTO DELL'UTENTE 
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30 PRINT “PAGAMENTO REGOLARE"; 

40 INPUT R 

50 PRINT “TERMINE IN ANNI"; 

60 INPUT V 

70 PRINT “TASSO DI INTERESSE ANNUALE"; 

80 INPUT I 

90 PRINT "NUMERO DI PAGAMENTI PER ANNO"; 

100 INPUT N 

108 REM - CALCOLA L'AMMONTARE DEL CAPITALE TRAMITE LA FORMULA; 

109 REM - L'INTERESSE E' CONVERTITO DA PERCENTUALE IN DECIMALE PER I CALCOLI 

110 P=R#N#a-l/<(I7100)/N+l>t<N*V>)/<I/100> 

119 REM - ARROTONDA AL CENTESIMO. STAMPA 

120 PRINT "CAPITALE = t ";INT(P*100+.5>/100 

129 REM - STAMPA UNA RIGA BIANCA PER SEPARARE I DATI DALLA DOMANDA 

130 PRINT 

139 REM - IL PROGRAMMA RIPARTE 0 TERMINA? 

140 PRINT "ALTRI DATI (1=31, 0=NO>"; 

150 INPUT X 

160 IF X=1 THEN 20 
170 END 


OPZIONE 

In alcuni casi è più conveniente introdurre il termine in anni e mesi anziché in 
anni. I necessari cambiamenti da apportare al programma sono mostrati nel 
successivo esempio. 


Esempio: 

Quale sarà l’ammontare dell’ipoteca se si pensa di pagare $ 75 al mese per 11 
mesi al 3% d’interesse? 

CAPITALE SU DI UN PRESTITO 

PAGAMENTO REGOLARE? 75 
TERMINE IN ANNI. MESI? 0 . 11 
TASSO DI INTERESSE ANNUALE? 3 
NUMERO DI PAGAMENTI PER ANNO? 12 
CAPITALE = * 812.76 

ALTRI DATI <1=SI. 0=NO>? 0 


Oioz i one 

1 REM - OPZIONE 50-65 

10 PRINT “CAPITALE SU DI UN PRESTITO" 


■>0 INPUT R 

50 PRINT “TERMINE IN ANNI, MESI"; 

60 INPUT V0.M 

64 REM - CALCOLA GLI ANNI IN BASE AGLI ANNI ED AI MESI 

65 V=<12*V0+M>/12 

70 PRINT “TASSO DI INTERESSE ANNUALE"; 


170 END 
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PAGAMENTO REGOLARE DI UN PRESTITO 


Questo programma calcola l’ammontare richiesto come pagamenti regolari 
al fine di ripagare un prestito in un determinato periodo. I dati che vanno forniti 
sono il valore del capitale prestato, l’interesse, il numero di pagamenti fatti per 
anno e il numero di anni richiesti per il rimborso. Questo programma considera 
uguali tutti i pagamenti. 

Il calcolo è basato sulla formula: 


dove: R 

i 

P 

N 

Y 

Esempi: 


7 • P/N 



= pagamento regolare 
= tasso di interesse annuale 
= capitale 

= numero di pagamenti per anno 
= numero di anni. 


Quanto si deve pagare per un prestito di $ 4.000 all’8% se si effettuano 
pagamenti trimestrali per cinque anni? 

Se Michael prende in prestito $ 6500 al 12,5% dalla Best Rate Savings & Loan 
e deve rimborsarle su un periodo di 5,5 anni, quanto dovrà pagare ogni mese? 
PAGAMENTO REGOLARE DI UN PRESTITO 


TERMINE IN ANNI? 5 
CAPITALE? 4000 

'ASSO DI INTERESSE ANNUALE? 3 
NUMERO DI PAGAMENTI PER ANNO? 4 
PAGAMENTO REG0LARE= * 244.63 


ALTRI DATI <1=31/ 0=NO>? 1 


'ERMINE IN ANNI? 5.5 
CAPITALE? 6500 

'ASSO DI INTERESSE ANNUALE? 12.5 
NUMERO DI PAGAMENTI PER ANNO' 1 12 
PAGAMENTO REGOLARE» * 136.6S 

ALTRI DATI <1=SI/ 0=N0>? 0 


Listing del programma 


10 PRINT "PAGAMENTO REGOLARE DI UN PRESTITO" 

20 PRINT 

29 REM - LE RIGHE DALLA 30 ALLA 100 RICHIEDONO L'INTERVENTO DELL'UTENTE 

30 PRINT "TERMINE IN ANNI"; 

40 INPUT V 
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50 PRINT "CAPITALE"; 

60 INPUT P 

76 PRINT "TASSO DI INTERESSE ANNUALE"; 

80 INPUT I 

?0 PRINT "NUMERO DI PAGAMENTI PER ANNO"; 

100 INPUT H 

108 REM - CALCOLA L'AMMONTARE DEL PAGAMENTO REGOLARE TRAMITE LA FORMULA; 

108 REM - L'INTERESSE E CONVERTITO DA PERCENTUALE IN DECIMALE PER I CALCOLI 
110 R=< CI/106)*P/N>A1-1A < 1/100VN+1 > t<N*V>> 

118 REM - ARROTONDA AL CENTESIMO, STAMPA 

120 PRINT "PAGAMENTO REGOLAR£= * “;INT<R*100+.5>/100 

128 REM - STAMPA UNA RIGA BIANCA PER SEPARARE I DATI DALLA DOMANDA 

130 PRINT 

138 REM - IL PROGRAMMA RIPARTE 0 TERMINA? 

140 PRINT "ALTRI DATI <1=SI, 0=NO>"; 

150 INPUT X 
160 IF X=1 THEN 20 
170 END 
READV. 


OPZIONE 

Può essere conveniente introdurre il termine del pagamento in anni e mesi 
anziché in soli anni. I cambiamenti necessari al programma sono mostrati nel 
successivo esempio. 

Esemplo: 

Il sig. Tarry abbisogna di un prestito di $ 10.000 per acquistare una nuova 
casa. La Best Rates offre questa cifra al 14% d’interesse se il rimborso viene 
effettuato in 11 anni e 5 mesi. Quale sarà l’ammontare di un pagamento regolare 
fatto mensilmente? 

PAGAMENTO REGOLARE DI UN PRESTITO 

TERMINE IN ANNI, MESI? 11 * 5 
CAPITALE? 10O00 

TASSO DI INTERESSE ANNUALE? 14 
NUMERO DI PAGAMENTI PER ANNO? 12 
PAGAMENTO REGOLARE» t 146.58 

ALTRI DATI <1=SI, 0=HO>? 0 


UP2: i one 
! REM - OPZIONE 30-45 

18 PRINT "PAGAMENTO REGOLARE DI UN PRESTITO" 


28 REM - LE RIGHE DALLA 30 ALLA 100 RICHIEDONO L'INTERVENTO DELL'UTENTE 
30 PRINT "TERMINE IN ANNI, MESI"; 

40 INPUT Y0,M 

44 REM - CALCOLA GLI ANNI IN BASE AGLI ANNI ED AI MESI 

45 V=<12*V0+M)/12 
50 PRINT "CAPITALE"; 


170 END 
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ULTIMO PAGAMENTO DI UN PRESTITO 


Questo programma calcola il valore del pagamento finale di un prestito. 
Questo pagamento finale deve ammortizzare completamente il prestito alla con¬ 
clusione della sua durata. Bisogna fornire l’ammontare del prestito, l’ammontare 
del pagamento regolare, il tasso di interesse, il numero di pagamenti per anno ed il 
numero di anni. 

L’ammontare dell’utlimo pagamento è normalmente differente dall’ammon¬ 
tare dei pagamenti regolari. Il pagamento finale sarà “gonfiato” se l’ultimo 
pagamento è maggiore dei pagamenti regolari. Un pagamento gonfiato è necessa¬ 
rio se applicando l’ammontare dei pagamenti regolari all’ultimo pagamento 
rimane un bilancio dovuto. Al fine di un completo rimborso del prestito, al 
termine dello stesso, il bilancio restante va sommato all’ammontare del pagamen¬ 
to regolare per determinare l’ammontare dell’ultimo pagamento. 

D’altra parte, l’ammontare del pagamento finale è in alcuni casi il minore del 
pagamento regolare. Se il pagamento regolare viene effettuato come ultimo 
pagamento, e da luogo ad un bilancio negativo, significa che l’ultimo pagamento 
deve essere minore di quello regolare. In questo caso il pagamento regolare viene 
aggiustato tenendo conto di questo ipotetico bilancio negativo al fine di determi¬ 
nare l’ammontare del pagamento finale. 

ammontare _ pagamento ipotetico bilancio dovuto 

pagamento regolare dopo N.Y. pagamenti regolari 

dove: N = numero di pagamenti per anno 

Y = numero di anni. 

Esempi: 

Lynn prende in prestito $ 6.000 al 5% da suo padre per spese di collegio. Se 
paga $ 1.000 ogni anno per sei anni, quanto varrà l’ultimo pagamento? 

Lynn prende in prestito $ 1150 all’8% di interesse, essa rimborsa questo 
prestito con rate di $ 75 ogni mese. Un anno e due mesi dopo Lynn decide di 
recarsi in Europa. Quanto dovrà pagare il prossimo mese per estinguere totalmen¬ 
te il suo debito? 

ULTIMO PAGAMENTO DI UN PRESTITO 

PAGAMENTO REGOLARE? 1000 

CAPITALE? 6000 

TERMINE IN ANNI? 7 

TASSO DI INTERESSE ANNUALE? 5 

NUMERO DI PAGAMENTI PER ANNO? 1 

ULTIMO PAGAMENTO = t 1300.59 
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ALTRI DATI <1=SI, @=N0>? 1 


PAGAMENTO REGOLARE’ 75 
CAPITALE? 1150 
TERMINE IN ANNI? 1.17 
TASSO DI INTERESSE ANNUALE? S 
IUTIERO DI PAGAMENTI PER ANNO? 12 
JLTIMO PAGAMENTO = t 240.SS 

ÌLTRI DATI C1=SI, 0=NO>? 0 


Listing del programma 

10 PRINT "ULTIMO PAGAMENTO DI UN PRESTITO" 

20 PRINT 

29 REM - LE RIGHE DALLA 30 ALLA 130 RICHIEDONO L'INTERVENTO DELL'UTENTE 

30 PRINT "PAGAMENTO REGOLARE"; 

40 INPUT R 

50 PRINT "CAPITALE"; 

60 INPUT P 

70 PRINT "TERMINE IN ANNI"; 

SO INPUT V 

30 PRINT "TASSO DI INTERESSE ANNUALE", 

100 INPUT I 

109 REM - L'INTERESSE E' CONVERTITO DA PERCENTUALE IN DECIMALE 

110 1 = 1/100 

120 PRINT "NUMERO DI PAGAMENTI PER ANNO"; 

130 INPUT N'¬ 
ITO DO=P 

149 REM - CALCOLA TUTTI I PAGAMENTI, I BILANCI TRAMITE L'ULTIMO PAGAMENTO <R> 

150 FOR Jl=l TO N*V 

159 REM - ARROTONDA L'INTERESSE PAGATO AL CENTESIMO 

160 11=I NT< <BO* I /U >* 100+. 5VI 00 

169 REM - CALCOLA IL TOTALE AMMORTIZZATOCON OGNI PAGAMENTO 

170 A=R-I1 

179 REM - IL BILANCIO RIMANENTE DECRESCE CON OGNI PAGAMENTO 
1S0 BO=BO-A 
190 NEXT J1 

199 REM - CALCOLA L'ULTIMO PAGAMENTO, ARROTONDA, STAMPA 

200 PRINT "ULTIMO PAGAMENTO = INT<<R+BO)*100+.5>/100 

210 PRINT 

219 REM - IL PROGRAMMA RIPARTE 0 TERMINA? 

220 PRINT "ALTRI DATI <1=SI, 0=NO>"; 

230 INPUT X 

240 IF X=1 THEN 20 
250 END 


OPZIONE 

Il programma precedente permette l’introduzione del termine di pagamento 
solamente in anni. Per introdurre il termine in anni e mesi il programma deve 
essere variato come mostra il prossimo esempio. 

Esempio: 

Se si pagano $ 40 ogni mese per 2 anni e 3 mesi su un prestito di $ 1200 al 7,5%, 
quale dovrà essere l’ammontare dell’ultimo pagamento? 
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ultimo pagamento di un prestito 

PAGAMENTO REGOLARE'» 40 
CAPITALE? 1200 

TERMINE IN ANNI E MESI? 2 . 3 
TASSO DI INTERESSE ANNUALE? 7.5 
numero di pagamenti PER ANNO? 12 
ULTIMO PAGAMENTO = * 237.36 

ALTRI DATI <l=St, 0=NO>? 0 


Oioz i one 
1 REM - OPZIONE 70-35 

10 PRIHT "ULTIMO PAGAMENTO DI UN PRESTITO" 


60 INPUT p 

70 PRINT "TERMINE IN ANNI E MESI"; 

80 INPUT V0.M 

S4 REM - CALCOLA GLI ANNI IN BASE AGLI ANNI ED AI MESI 
85 V=<12*V0+MV12 

90 PRINT "TASSO DI INTERESSE ANNUALE"; 


250 END 



BILANCIO RIMANENTE DI UN PRESTITO 


Questo programma calcola il bilancio restante su un prestito dopo un nume¬ 
ro specifico di pagamenti. È necessario fornire l’ammontare dei pagamenti regola¬ 
ri, il numero di pagamenti per anno, l’ammontare del capitale, il tasso di interesse 
annuale, e il numero di pagamento dopo il quale si vuol calcolare il bilancio 
restante. 

Il bilancio restante è calcolato con il seguente metodo: 

bilancio restante = capitale — ammontare ammortizzato dopo 

N. (Y-l) + NI pagamenti 

dove: N = numero di pagamenti per anno 

Y = anni su cui va calcolato il bilancio rimanente 
N1 = numero di pagamenti effettuati in Y anni per calcolare 

il bilancio. 

Esempio: 

Kelly ha perso a prestito $ 8.000 al 17,2% d’interesse. I suoi pagamenti 
regolari sono di $ 200 al mese. Quanto deve ancora pagare Kelly dopo aver 
effettuato il pagamento della rata del decimo mese del quarto anno? 


BILANCIO RIMANENTE DI UH PRESTITO 

PAGAMENTO REGOLARE? 200 
CAPITALE? 8000 

NUMERO DI PAGAMENTI PER ANNO? 12 
TASSO DI INTERESSE ANNUALE? 17.2 

ULTIMO PAGAMENTO EFFETTUATO '.'NO. DI PAGAMENTO, ANNO)? 10 , 4 
BILANCIO RIMANENTE = t 2456.17 

ALTRI DATI <1=SI, 0=HO>? 0 


Listing del programma 

10 PRINT “BILANCIO RIMANENTE DI UN PRESTITO" 

20 PRINT 

29 REM - LE RIGHE DALLA 30 ALLA 130 RICHIEDONO L'INTERVENTO DELL'UTENTE 

30 PRINT "PAGAMENTO REGOLARE"; 

40 INPUT R 

50 PRINT "CAPITALE"; 

60 INPUT P 

70 PRINT "NUMERO DI PAGAMENTI PER ANNO"; 

80 INPUT N 

90 PRINT "TASSO DI INTERESSE ANNUALE"; 

100 INPUT I 

109 REM - L'INTERESSE E' CONVERTITO DA PERCENTUALE IN DECIMALE 

110 1 = 1/100 

119 REM - DIGITA IL NUMERO DI PAGAMENTO ENTRO L'ANNO, I.E. NK=N 
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120 PRINT "ULTIMO PAGAMENTO EFFETTUATO <NO. DI PAGAMENTO, ANNO)"; 
130 INPUT NI,V 

139 REM - INIZIALIZZA IL BILANCIO RIMANENTE 

140 BO=P 

149 REM - CICLO PER I TOTALI PAGATI FINO AD ORA 

150 FOR Jl = l TO N*<V-1)+N1 

159 REM - CALCOLA L'INTERESSE PAGATO CON OGNI PAGAMENTO 

160 Il=INT<<BO*I/N>#100+.5>/100 

169 REM - CALCOLA IL TOTALE AMMORTIZZATO CON OGNI PAGAMENTO 

170 A=R-I1 

179 REM - CALCOLA IL BILANCIO RIMANENTE SUL CAPITALE 
1S0 BO=BO-A 
190 NEXT J1 

199 REM - ARROTONDA, STAMPA 

200 PRINT "BILANCIO RIMANENTE = INT<BO*100+.5V100 

210 PRINT 

219 REM - IL PROGRAMMA RIPARTE 0 TERMINA? 

220 PRINT "ALTRI DATI <1=SI, 0=NO>"; 

230 INPUT X 

240 IF X=1 THEN 20 
250 END 


OPZIONE 

Si può specificare il numero dell’ultimo pagamento fatto introducendolo non 
come numero di pagamento in un certo anno ma come numero totale di pagamen¬ 
ti. Ad esempio, quando si effettuano quattro pagamenti per anno, il 3 pagamento 
del 3 anno può essere introdotto come pagamento numero 11. Per fare questo il 
programma va cambiato come viene mostrato nell’esempio successivo. 


Esempio: 

John fa dieci pagamenti trimestrali di $ 550 per rimborsare un debito di $ 
6.000 al 16% d’interesse. Quale sarà il bilancio restante? 


BILANCIO RIMANENTE DI UN PRESTITO 

PAGAMENTO REGOLARE? 550 
CAPITALE? 6000 

NUMERO DI PAGAMENTI PER ANNO? 4 
TASSO DI INTERESSE ANNUALE? 16 
NUMERO DI PAGAMENTI EFFETTUATI? 10 
BILANCIO RIMANENTE = $ 2273.09 

ALTRI DATI <1=SI, 0=NO>? 0 


Uioz i one 


1 REM - OPZIONE 119-130, 150 

10 PRINT "BILANCIO RIMANENTE DI UN PRESTITO" 


110 1 = 1/100 

119 REM - DIGITA IL NUMERO COMPLESSIVO DI PAGAMENTI EFFETTUATI ALLA DATA 
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120 FRINT "NUMERO DI PAGAMENTI EFFETTUATI"; 

130 INPUT NI 

139 REM - INI2IALI22A IL BILANCIO RIMANENTE 

140 BO=P 

149 REM - CICLO PER I TOTALI PAGATI FINO AD ORA 

150 FOR Jl=l TO NI 

159 REM - CALCOLA L'INTERESSE PAGATO CON OGNI PAGAMENTO 


250 END 
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TERMINE DI UN PRESTITO 


Questo programma calcola il periodo di tempo necessario per rimborsare un 
prestito. Si devono specificare l’ammontare del prestito, l’ammontare dei paga¬ 
menti, il numero di pagamenti fatti per anno e il tasso di interesse annuale. Tutti i 
pagamenti sono considerati uguali. 


dove: 


Y 


log 



1 


log 



N 


Y = termine del pagamento in anni 
P = capitale 

i = tasso di interesse annuale 
N = numero di pagamenti per anno 
R = ammontare dei pagamenti. 


Esempio: 

Quale sarà la durata di pagamento di una ipoteca di $ 20.000 al 18% quando 
si effettuano dei pagamenti di $ 1.000 ogni trimestre? 

Sally prende un prestito di $ 12.699 al 16,8%. Essa effettua dei pagamenti di $ 
512,34 ogni due mesi. Quale sarà il termine del suo debito? 

TERMINE DI UN DEDITO 
PAGAMENTO REGOLARE? 1000 
CAPITALE? 20000 

TASSO DI INTERESSE ANNUALE? 18 
NUMERO DI PAGAMENTI PER ANNO? 4 
TERMINE = 13.1 ANNI 

ALTRI DATI ? <1=SI,0=NC>? 1 

PAGAMENTO REGOLARE? 512.34 
CAPITALE? 12668 

TASSO DI INTERESSE ANNUALE? 16.3 
NUMERO DI PAGAMENTI PER ANNO? 6 
TERMINE = 7.1 ANNI 
ALTRI DATI ? <1=SI,0=N0>? 0 


Listing del programma 

10 PRINT "TERMINE DI UN DEDITO"; 

20 PRINT 

23 REM - GLI STATI DA 30 A 100 RICHIEDONO L' INTERVENTO DELL' UTENTE 
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30 PRINT "PAGAMENTO REGOLARE"; 

40 INPUT R 
50 PRINT "CAPITALE”; 

50 INPUT P 

30 PRINT "TASSO m INTERESSE ANNUALE"; 


•30 INPUT I 

30 PRINT "NUMERO DI PAGAMENTI PER ANNO"; 
100 INPUT N 


108 REM - 

109 REM - 


CALCOLA IL TERMINE DI UN DEBITO CON LA FORMULA 

L' INTERESSE '''IENE CONVERTITO DA PERCENTUALE IN DECIMALE PER I CALCOLI 


HO V=-(L0G< 1 -<P#< 1/100) >AN#R> >ALOG< 1 +I.'100/N>*N> > 

113 REM - ARROTONDA AI DECIMI, STAMPA 

120 PRINT "TERMINE =“;INT<V*13+.5>/10;“ANNI" 

130 PRINT 

133 REM - RIPARTI 0 TREMIMI IL PROGRAMMA? 

140 PRINT "ALTRI DATI ? < 1=31,0=NO> ■; 

150 INPUT ;< 

160 IF ;;=1 THEN 28 
170 END 


OPZIONE 

È possibile calcolare il termine del pagamento in anni e mesi anziché in soli 
anni. Per far ciò, il programma va variato come mostra il successivo esempio. 


Esempio: 

Disk prende in prestito $ 8.000 al 7,5%. I suoi pagamenti regolari sono di $ 
150 mensili. Quanto tempo impiegherà per rimborsare il prestito? 

"ERMINE DI UN DEBITO 
PAGAMENTO REGOLARE? 150 
CAPITALE? 3000 

TASSOI DI INTERESSE ANNUALE? 7.5 
NUMERO DI PAGAMENTI PER ANNO? 12 
TERMINE = 5 ANNI 5 MESI 

ALTRI DATI ? <1=SI,0=NO>? 0 


Opz i one* 

1 REM - OPZIONE 114-120 
10 PRINT "TERMINE DI UN DEBITO"; 


110 Y=-<LOG< 1-<P*<1/180) X'<N*R>>/<L0G< 1+I/100/N)*N)> 

114 REM - CALCOLA GLI ANNI E I MESI DAGLI ANNI 

115 M=INT<V*12+.5> 

116 V0=INT<M/12> 

117 M=M-V0*12 

113 REM - STAMPA I RISULTATI 

120 PRINT "TERMINE =";Y0;"ANNI“;M;"MESI 

130 PRINT 


170 END 
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QUOTA DI INTERESSE ANNUALE 
SU UN PRESTITO 


Questo programma calcola la quota di interesse caricata su un prestito. Per 
determinare questa quota bisogna introdurre l’ammontare del prestito, l’ammon¬ 
tare dei pagamenti regolari, il numero di pagamenti per anno, e il termine del 
prestito. 

La quota di interesse viene computata col seguente metodo di approssima¬ 
zione: 

1) Si ipotizza una quota di interesse 
Inizializziamo l’ultima ipotesi a 0 

2) Si calcola il pagamento regolare usando la quota ipotizzata: 

/ • P/N 

R , = - 

1 - {(1 +i)/N)- N ‘ Y 


Arrotondare il valore di RI 

3) Se il pagamento computato = pagamento attuale, allora l’ipotesi corrente è = 
alla quota di interesse approssimata 

4) In altro caso, si osserva l’ipotesi corrente e si calcola una nuova ipotesi 



/' 


= / ± | (/ - i 2 )/2 I 


Ì + se R , < R 
- ise R , > R 


5) Si va al punto 2 


dove: 


i = tasso d’interesse 
Ì 2 = precedente quota di interesse 
R = pagamento regolare introdotto 
Ri = pagamento regolare calcolato 
P = capitale 

N = numero di pagamenti per anno 
Y = numero .di anni. 


Esempi: 

Cindy prende a prestito $ 3.000 da suo amico George con l’intenzione di 
pagare $ 400 ogni trimestre per 2 anni. Quale sarà la quota d’interesse? 

Per rimborsare un prestito di $ 10.000 John decide di effettuare dei pagamen¬ 
ti mensili di $ 120 per 9,5 anni. Qual’è la quota di interesse? 


41 



QUOTA DI INTERESSE ANNUALE SU UN DEBITO 
PAGAMENTO REGOLARE? 400 
TERMINE DI ANNI? 2 
CAPITALE? 3000 

NUMERO DI PAGAMENTI PER ANNO? 4 
QUOTA DI INTERESSE ANNUALE = 5.327 X 

ALTRI DATI ? <1=SI,0=NO>? 1 

PAGAMENTO REGOLARE? 120 
TERMINE DI ANNI? 9.5 
CAPITALE? 10000 

NUMERO DI PAGAMENTI PER ANNO? 12 
QUOTA DI INTERESSE ANNUALE = 6.933 X 

ALTRI DATI ? <1=SI,0=NO>? 0 


Listing del programma 

10 PRINT "QUOTA DI INTERESSE ANNUALE SU UN DEBITO”; 

20 PRINT 

29 REM - GLI STATI DA 30 A 100 RICHIEDONO L'INTERVENTO DELL'UTENTE 
SO PRINT "PAGAMENTO REGOLARE"; 

40 INPUT R 

50 PRINT "TERMINE DI ANNI"; 

SO INPUT V 
70 PRINT "CAPITALE"; 

SO INPUT P 

SO PRINT "NUMERO DI PAGAMENTI PER ANNO"; 

100 INPUT N 

109 REM - IPOTIZZA UNA QUOTA DI INTERESSE C10JO PER INIZILIZZARE IL TEST 

110 1=10 

119 REM - I2=ULTIMA IPOTESI 0 STIMA (PARTI CON 0) 

120 12=0 

129 REM - COMPUTA IL PAGAMENTO REGOLARE USANDO LA QUOTA DI INTERESSE IPOTIZZATA 

130 Rl=<I*P/N)/a-l/«I/N+l>t<N*V>>> 

139 REM - ARROTONDA AL CENTESIMO 

140 R1=INTc:R1*100+.5>/100 

149 REM - I3=NUMER0 USATO PER AVVICINARI ALLA QUOTA DI INTERESSE 

150 I3=ABS<I-I20/2 

159 REM - TIENI QUESTA IPOTESI 

160 12=1 

167 REM - COMPARARE IL PAGAMENTO C0MFUTAT0CR1> COL PAGAMENTO IHIZIALF(R); 

168 REM - SE ESSI SONO UGUALI ALLORA : ULTIMA QUOTA IPOTIZZATA = TASSO DI 

169 REM - INTERESSE APPROSSIMATO 

170 IF R1=R THEN 230 
ISO IF RIOR THEN 210 

189 REM - RKR, LA QUOTA DEVE ESSERE PIU' ALTA DELL'ULTIMA IPOTIZZATA 

190 1=1+13 

199 REM - RIFARTI CON UNA NUOVA IPOTESI 

200 GOTO130 

209 REM - RIOR. LA QUOTA DEVE ESSERE MINORE DELL' ULTIMA IPOTIZZATA 

210 1=1-13 
220 GOTO130 

229 REM - CALCOLA L'INTERESSE ALLE PROPRZIONI DOVUTE. ARROTONDA, STAMPA 

230 I = <<INT<< 1*10000*100+.5>0/1000/1000 

240 PRINT "QUOTA DI INTERESSE ANNUALE = ";1*180; "X" 

250 PRINT 

268 PRINT "ALTRI DATI ? <1=3I,0=NO>", 

270 INPUT X 

280 IF X=1 THEN 20 

290 END 
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OPZIONE 

Il precedente listing permette l’introduzione del termine del prestito solo in 
anni. Per introdurlo come anni e mesi il programma va variato come mostrato nel 
successivo esempio. 


Esempio: 

Se Connie paga $ 100 al mese per 11 anni e 7 mesi su un prestito di $ 10.000, 

qual’è l’attuale quota di interesse per il prestito? 

0U0TA DI INTERESSE ANNUALE SU UN DEBITO 
PAGAMENTO REGOLARE? 100 
TERMINE HI ANNI, MESI? 11 , ? 

CAPITALE? 10000 

NUMERO DI PAGAMENTI PER ANNO? 12 
QUOTA DI INTERESSE ANNUALE = S.002 II 

ALTRI DATI ? a=SI..0=NO>? 0 


i one 

1 REM - OPZIONE 59-55 

10 PRINT “QUOTA DI INTERESSE ANNUALE SU UN DEBITO"; 


40 INPUT R 

50 PRINT “TERMINE DI ANNI, MESI": 

50 INPUT V0,M 

54 REM - CALCOLA GLI ANNI DAGLI ANNI E MESI 

55 V=<12*V0+MV12 
70 PRINT "CAPITALE"; 



TABELLA DI AMMORTAMENTO 
DI UNA IPOTECA 


Questo programma calcola e stampa la tabella del rimborso di un prestito. 
La scheda prevede queste uscite: 

1) Numero del pagamento 

2) L’ammontare di ogni pagamento pagato con l’interesse 

3) L’ammontare del debito ammortizzato con ogni pagamento 

4) Bilancio rimanente sul capitale preso in prestito dopo ogni pagamento 

5) Cumulo degli interessi pagati dopo ogni pagamento 

6) Ammontare dell’ultimo pagamento. 

In aggiunta, vengono tabulati e stampati anche i totali interessi pagati 
annualmente, e l’ammontare ammortizzato ogni anno. 

Per usare questo programma bisogna fornire l’ammontare dei pagamenti 
regolari, il termine del pagamento, il numero di pagamenti per anno, l’ammontare 
del prestito iniziale e il tasso di interesse annuale. 

La scheda è calcolata nel seguente modo: 

1) Numero del pagamento = numero del pagamento nell’anno considerato 

2) Ammontare di ogni pagamento pagato con l’interesse = bilancio restante • i/N 

dove: i = tasso di interesse annuale 

N = numero di pagamenti per anno 

3) Ammontare ammortizzato con ogni pagamento = R — I 

dove: R = ammontare del pagamento regolare 

I = ammontare di ogni pagamento pagato con l’interesse 

4) Bilancio restante = P — ZA 

dove: P = capitale 
ZA = 

somma degli ammontari ammortati con ogni pagamento 
a quella data 

5) Interesse accumulato = Z I 

dove: Z I = somma degli ammontari ammortati con ogni 

pagamento effettuato come interesse a quella data 

6) Ammontare dell’ultimo pagamento = R + (P — R-N-Y) 

dove: R = pagamento regolare 
P = capitale 

N = numero di pagamenti per anno 
Y = numero di anni. 
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Esempio: 

A David occorrono $ 2.100 per pagare alcuni debiti. Sua sorella gli offre 
questa somma al 6% di interesse. Quale sarà la scheda di rimborso di David se egli 
paga $ 75 al mese per 2 anni e 1/2? 


tabella di ammortamento di una ipoteca 

PAGAMENTI REGOLARI? 75 
TERMINE IN ANNI? 2.5 
CAPITALE? 2100 

TASSO ANNUALE DI INTERESSE? 6 
NUMERO DI PAGAMENTI PER ANNO? 12 
PARTI STAMPANDO QUALE ANNO? 1 


TABELLA DI AMMORTAMENTO DI UNA IPOTECA 
CAPITALE i 2100 AL 6 PER 2.5 ANNI 
PAGAMENTO REGOLARE = $ 75 


N. 

INTERESSE 

AMMORTAMENTO 

BILANCIO 

INTERE» 

1 

10.5 

64.5 

2035.5 

10.5 

O 

£. 

10. 1S 

64.32 

1370.68 

20.68 

3 

3.35 

65.15 

1305.53 

30.53 

4 

3.53 

65.47 

1840.06 

40.06 

5 

3.2 

65.8 

1774.26 

43.26 

6 

3.87 

66.13 

1708.13 

58.13 

7 

8.54 

66.46 

1641.67 

66.67 

S 

3.21 

66.73 

1574.88 

74.88 

9 

7.37 

67.13 

1507.75 

32 .75 

10 

7.54 

67.46 

1440.23 

30.23 

11 

7.2 

67.3 

1372.43 

37.43 

12 

e. se 

68.14 

1304.35 

104.35 

ANNO 

1 

104.35 

735.65 


1 

6.52 

68.48 

1235.37 

110.87 

2 

6.18 

63.82 

1167.05 

117.05 

3 

5.34 

63.16 

1037.83 

122.83 

4 

5.43 

63.51 

1028.33 

128.38 

5 

5.14 

63. 36 

353.52 

133.52 

6 

4.73 

70.21 

338.31 

138.31 

7 

4.44 

70.56 

317.75 

142.75 

S 

4.03 

70.31 

746.34 

146.84 

9 

3.73 

71.27 

675:57 

150.57 

10 

3.38 

71.62 

603.35 

153.35 

11 

3.02 

71.38 

531.37 

156.37 

12 

2.66 

72.34 

453.63 

153.63 

ANNO 

2 

55.28 

344.720001 


1 

2.3 


386.33 

161.33 

2 

1.33 

73! 07 

313.86 

163.86 

3 

1.57 

73.43 

240.43 

165.43 

4 

1.2 

73.8 

166.63 

166.63 

5 

.33 

74. 17 

32.4533336 

167.46 

6 

. 46 

32.4533332 

0 

167.32 


ULTIMO PAGAMENTO = I 32.32 



ANNO 

o 

3.29 

453.623333 



CAMBI DATI E COMPUTI ANCORA ? <1=S1,0=NO > ? 0 
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Listing del programma 

10 PRINT "TABELLA DI AMMORTAMENTO DI UNA IPOTECA" 

20 PRINT 

29 REM - LE RIGHE DA 30 A 100 RICHIEDONO L'INTERVENTO DELL'UTENTE 

30 PRINT "PAGAMENTI REGOLARI"; 

40 INPUT R 

50 PRINT "TERMINE IN ANNI"; 

60 INPUT V 
70 PRINT "CAPITALE”; 

30 INPUT P 

90 PRINT “TASSO ANNUALE DI INTERESSE"; 

100 INPUT I 

109 REM - CONVERTI DA PERCEPITALE IN DECIMALE 

110 1=1/100 

120 PRINT "NUMERO DI PAGAMENTI PER ANNO"; 

130 INPUT N 

140 PRINT "PARTI STAMPANDO QUALE ANNO"; 

150 INPUT X 
170 C1=0 
1S0 12=0 
190 13=0 
200 TO=0 
210 N1=N 
220 K=66 
230 EO=P 
240 A1=0 
250 A2=0 

259 REM - IL TERMINE E' MINORE DI UN ANNO ? 

260 IF INT(V)>=1 THEN 270 

261 REM - AGGIUSTA LE VARIABILI PER STAMPARE UN ANNO FARZIALE 

262 N1=«V-INT<V>>*12>/12*N 

263 J0=J0+1 

264 GOTO280 

269 REM - CICLO PER OGNI ANNO 

270 FOR J0=1 TO INT<V> 

279 REM - INIZIA STAMPA ? 

2S0 IF JOO: THEN410 

239 REM - E' NECESSARIO INIZIARE UNA NUOVA PAGINA ? 

290 IF K+N+3C58 THEN 400 

293 REM - SPAZIA IL BORDO SUPERIORE DELLA PAGINA NUOVA 

299 REM - 'ASSUMENDO 66 LINEE PER PAGINA? 

300 FOR K1=K TO 66 
310 PRINT 

320 NEXT K1 

339 REM - STAMPA LE INTESTAZIONI DELLA PAGINA 

348 PRINT" TABELLA DI AMMORTAMENTO DI UNA IPOTECA" 

350 PRINT “ CAPITALE T";P;" AL". : 1*188; "2 PER"; V; "ANNI ” 

360 PRINT " PAGAMENTO REGOLARE = t";R 

370 PRINT 

380 PRINT "N. INTERESSE AMMORTAMENTO BILANCIO INTERESSE ACC." 

339 REM - CONTA LE LINEE STAMPATE SU OGNI PAGINA IH K 
390 K=7 
•100 K=K+N*3 

T._« 

419 REM -*CALCOLA"L INTERESSE PAGATO CON QUESTO PAGAMENTO , ARROTONDA 

420 : i=i nt ■: esose i.’n: * 100+. 5v100 

429 REM - CONTA IL NUMERO DI PAGAMENTI FATTI FINO AB ORA 

430 C1C+1 

439 REM - CALCOLA IL TOTALE AMMORTIZZATO CON QUESTO PAGAMENTO 

440 A=R-I1 

449 REM - SOMMA IL TOTALE AMMORTIZZATO ALLA DATA 

4«T0 

459 REM CALCOLA IL BILANCIO DOVUTO 
4:0 BC=P-A1 

463 REM - ULTIMO PAGAMENTO ? SE SI, CALCOLA IL TOTALE COSI' CHE 

469 REM - IL BILANCIO DOVUTO UGUAGLI *.00.00 DOPO QUESTO PAGAMENTO 

470 IF ClONseV THEN 520 
430 .R=R+BO 

490 h=A+£0 
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5 £?o ai=ai+bo 

510 rem"'- SOMMO OLI INTERESSI PAGATI FIMO OD ORO 
520 12 = 12+11 

52? REM - SOMMO GLI INTERESSI ROSOTI FINO 0 QUESTO ONHO 
530 13=13+11 

«a REM - SOMMO L OMMCNTORE POGOTO FINO 0 QUESTO ANNO 
540 02=02+0 

iì'i REM - LO STAMPO E' INIZIATO? SE SI, STAMPO I VALORI COMPUTATI HELLO TABELLA 
550 IF JOCK THEN570 

«0 RRINTJl ; TAB< IO) Il ; T0B(22)0; TAB<35>B0; T0B<48) 12 
570 MEJ'T.'l 

era REM - ULTIMO PAGAMENTO? SE SI', ARROTONDA, STAMPO 
iiìfl IF C10N*V THEN S0O 

530 PRINT " ULTIMO PAGAMENTO = »“;<INT<R*100+.5»/100 

5^5 JC=J0-1 

REM - LO STAMPO E' INIZIATO? SE SI', STAMPO I TOTALI ANNUALI 
5ÓÓ IF J0« THEN 640 
610 PRINT 

C 20 PRINT" ANNO* ; ;o;TOB<10>13;TflB<22)02 
SSO -'RINT 

639 REM - TERMINE COMPLETATO? 

-40 IF J0>V THEN 720 

643 REM - RINIZZIOLIZZA LE VARIABILI ANNUALI 
650 13=0 
560 02 = 0 t _ 

679 REM'- E' NECESSARIO STAMPARE UH ANNO AUSILIARIO ? 

6 Se IF VOTO THEN 262 
720 PRINT 

729 REM - RIPARTI 0 TERMINI IL PROGRAMMA? 

=38 PRINT "CAMBI DATI E COMPUTI ANCORATO «SI, O-NO)*; 

=40 INPUT Z 

750 IF Z=1 THEN 20 

760 END 


OPZIONE 

È possibile introdurre il termine di pagamento in anni e mesi anziché in anni. 
In tal caso il programma dovrà essere variato come viene mostrato nell’esempio 
successivo. 

Esempio: 

Avendo un debito di $ 700 al 9 % di interesse e pagando $ 100 al mese per 8 
mesi quale sarà la scheda dei rimborsi? 


T ABELLA DI AMMORTAMENTO DI UNA IPOTECA 

PAGAMENTI REGOLARI? 100 
TERMINE IN ANNI,MESI? 8 , 3 
CAPITOLE? 700 

TASSO ANNUALE DI INTERESSE? 9 
NUMERO DI PAGAMENTI PER ANNO? 12 
PARTI STAMPANDO QUALE ANNO? 1 
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TABELLA DI AMMORTAMENTO DI UNA IPOTECA 
CAPITALE J. 70O AL 3 II PER 0 ANNI 3 MESI 
PAGAMENTO REGOLARE = t 108 



INTERESSE 

AMMORTAMENTO 

BILANCIO 

INTERESSE 

t 

5.25 

34.75 

605.25 

5.25 

£ 

4.54 

35.46 

503.73 

3.73 

3 

3.32 

36.18 

413.61 

13.61 

4 

3.1 

36.3 

316.71 

16.71 

«r 

2.33 

37.62 

213.03 

13.03 

5 

1.64 

38.36 

120.73 

20. 73 

T 

.31 

33.03 

21.6339333 

21.64 

3 

fiN. 1 

.16 21.64 

ULTIMO PAGAMENTO = $ 21.3 

21.3 700 

0 

21.8 


CAMBI DATI E COMPUTI ANCORA?CI=SI,0=NO>? O 


l_l i fi •=■ 

1 REM - OPZIONE 50-65,350 

10 PRINT "TABELLA DI AMMORTAMENTO DI UNA IPOTECA" 


40 INPUT R 

50 PRINT "TERMINE IN ANNI,MESI"; 

60 INPUT VO,M 

54 REM - CONVENTI OLI ANNI E MESI IH ANNI 

55 V=C12#V0+M>/12 
70 PRINT "CAPITALE"; 


340 PRINT" TABELLA DI AMMORTAMENTO DI UNA IPOTECA" 

35© PRINT " CAPITALE f.“;P;“ AL"; 1*100,"X PER";VO;"ANNIM,"MESI" 

360 PRINT " PAGAMENTO REGOLARE = t";R 


760 END 
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MASSIMO COMUN DENOMINATORE 


Questo programma calcola il massimo comun denominatore di due interi. 
Esso si basa sull’algoritmo euclideo per ricavare il M.C.D.: 

1) entrano A, B 

A = valore assoluto di A 
B = valore assoluto di B 

2) si calcola: R = A — B • (intero di (A/B)) 

3) È: R = 0? Se si, il M.C.D. è = B 

Se no, vai al punto 4 

4) A = B 
B = R 

5) vai al punto 2 

Esempio: 

Trovare il massimo comun denominatore di 50 e 18, 115 e 150. 

MASSIMO COMUN DENOMINATORE 

;DI0ITA 0,0 PER TERMINARE) 

DIGITA DUE NUMERI? 50 , 1S 
M.C.D.' 2 

DIGITA DUE NUMERI? 115 , 150 
M.C.D. ’ 5 

DIGITA DUE NUMERI? 0 , 0 


Listing del programma - 

10 PRINT “MASSIMO COMUN DENOMINATORE" 

20 PRINT 

00 PRINT "'DIGITA 0,0 PER TERMINARE:)" 

40 PRINT “DIGITA DUE NUMERI"; 

50 INPUT A,E 
S0 IP AO0 THEN 90 
CO IP EOO THEN 90 
50 GOTO 190 

89 REM - CALCOLA MCD IN EASE ALL ALGORITMO EUCLIDEO, STAMPA IL RISULTATO 

90 A=AES<A> 
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100 B=ABS<B> 

110 R=fl-B$I UT ( A. 'B > 

120 IF R=e THEM 150 

130 A=E 

140 B=R 

150 GOTO 110 

160 FRINT "M.C.D. ";B 

169 REM - STAMPA UNA LINEA BIANCA PER SÉPARÉ LE SERIE DI DATI 

170 PRINT 

179 REM - IL PROGRAMMA RIPRENDE 
130 GOTO 40 
190 END 
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FATTORI PRIMI DI NUMERI INTERI 


Questo programma indica i fattori primi di un intero. Il test non è valido per il 
numero intero 0. 


Esempi: 

Quali sono i fattori primi di —49? 
Quali sono i fattori primi di 92? 
fattori primi di numeri interi 

(DIGITA 0 PER TERMINARE) 

NUMER0?-49 

-1 

7 T 2 

NUMERO? 92 
1 

2 t 2 
23 t 1 

NUMERO? 0 


Listing del programma 

J0 PRINT "FATTORI PRIMI DI NUMERI INTERI” 

20 PRINT 

30 PRINT "(DIGITA 0 PER TERMINARE)" 

40 PRINT "NUMERO"; 

50 INPUT Z 

59 REM - IL PROGRAMMA TERMINA? 

60 IF 2=0 THEN 200 

69 REM - IL SEGNO DEL NUMERO £' SEMPRE UN FATTORE 

70 PRINT SGH(Z) 

79 REM - UTILIZZA IL VALORE ASSOLUTO PER I CALCOLI 

80 Z=ABS(Z) 

88 REM - CICLO PER PROVARE TUTTI GLI INTERI (DA 2 A Z/2) COME FATTORI PRIMI 
39 REM - GLI INTERI DA 2/2 A Z NON AVRANNO NUOVI FATTORI 
90 FOR 1=2 TO Z/2 
100 S=0 

110 IF Z/IOINT(Z/I) THEN 150 
120 Z=Z/I 
130 S=S+1 
140 GOTO 110 

149 REM - TROVATO UN FATTORE PRIMO? SE SI> STAMPA 

150 IF S=0 THEN 170 

159 REM - STAMPA I FATTORI CON I LORO ESPONENTI; ITS = I ALLA S-ESIMA POTENZA 

160 PRINT I"T“S 
170 NEXT I 

180 PRINT 

189 REM - IL PROGRAMMA RIPARTE 

190 GOTO 40 
200 END 
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AREA DI UN POLIGONO 


Questo programma calcola l’area di un poligono. Bisogna fornire le coordi¬ 
nate x e y di tutti i vertici. Le coordinate vanno introdotte nell’ordine dei successivi 
vertici. 

La formula utilizzata per calcolare l’area è: 

Area = (x, + x 2 ) • (Vi - yi) + (x 2 + x 3 ) • (y 2 - y 3 ) + ... fx„ + x,j . (y„ - y x ) 12 

dove: n = numero di vertici 

Il massimo numero di vertici che può essere introdotto è limitato a 24. Si può 
variare tale massimo variando l’istruzione 30 in accordo con il seguente schema: 

30 DIM X(n + 1), Y (n + 1) 

Esempio: 

Approssimare l’area del lago Boyer. 



miglia 


UREA DI UN POLIGONO 

NUMERO DI VERTICI (DIGITA O PER TERMINARE)? 14 
COORDINATE DEL VERTICE 1 ? 0 , 4 
VERTICE 2 ? 1 , 7 
VERTICE 3 ? 4 , S 
VERTICE 4 ? 5 , 10 
VERTICE 5 ? 7 , 11 
VERTICE 679, 10 
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VERTICE 7 ? 12 , 9 
VERTICE 8 ? 14 , S 
VERTICE 97 13 / 4 
VERTICE 10 ? 15 , 4 
VERTICE 11 ? 15 , 1 
VERTICE 12 ? 13 , 0 
VERTICE 13 ? 5 , 1 
VERTICE 14 ? 4 , 2 

AREA = 108 

NUMERO DI VERTICI (DIGITA 0 PER TERMINARE)? 0 


Listing del programma 

10 PRINT "AREA DI UN POLIGONO" 

20 PRINT 

28 REM - LA MATRICE CONTENENTE LE COORDINATE DEVE ESSERE DIMENSIONATA IN BASE 

29 REM - AL NUMERO DI VERTICI AUMENTATO DI UNO 

30 DIM X(25),V(25) 

40 PRINT "NUMERO DI VERTICI (DIGITA 0 PER TERMINARE)"; 

50 INPUT N 

59 REM - IL PROGRAMMA TERMINA? 

60 IF N=0 THEN 230 

69 REM - CICLO PER INSERIRE ORDINATAMENTE LE COORDINATE DEI VERTICI SUCCESSIVI 

70 FOR 1=1 TO N 

80 IF I>1 THEN 110 

90 PRINT "COORDINATE DEL VERTICE" ili 

100 GOTO 120 

110 PRINT " VERTICE";!; 

120 INPUT X(I),V(I) 

130 NEXT I 

139 REM - IL PRIMO VERTICE VIENE UTILIZZATO COME ULTIMO VERTICE 

140 X(N+1)=X(1) 

150 V(N+1)=V(1) 

160 A=0 

169 REM - CALCOLA L'AREA, STAMPA 

170 FOR 1=1 TO N 

180 A=A+(X(I)+X(I+1))#CV(I)-V(I+1)) 

190 NEXT I 

200 PRINT "AREA =";ABS(A)/2 
210 PRINT 

219 REM - IL PROGRAMMA RIPARTE 

220 GOTO 40 
230 END 
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PARTI DI UN TRIANGOLO 


Questo programma calcola tre parti non conosciute di un triangolo quando 
vengono date tre altre parti del triangolo stesso. In ogni caso, la lunghezza di un 
lato deve sempre essere data. Si hanno cinque possibili dati d’entrata: 

1) Angolo, lato, angolo 

2) Lato, angolo, lato 

3) Angolo, angolo, lato 

4) Lato, lato, angolo 

5) Lato, lato, lato. 

I dati vanno introdotti nell’ordine in cui appaiono nel triangolo, prendendoli 
in senso orario o antiorario. 

Esempio: 

La base di un triangolo misura 14 pollici. Gli angoli di base sono di 0,45 e 2,1 
radianti. Quali sono le misure del triangolo? 



14" 


*AF:TI DI UN TRIANGOLO 

TIPI DI PROBLEMA: 1=ALA,2=LAL,3=AAL,4=LLA,5=LLL,6=FINE PROGRAMMA 

DIGITA IL TIPO DI PROBLEMA? 1 

DIGITA ANGOLO,LATO,ANGOLO? .45 , 14 , 2.1 

LATO 1 = 10.915 

ANGOLO DPP03T0= 0-45 RADIANTI 

LATO 2 = 21. 6? 

ANGOLO OPPOSTO» 2*1 RADIANTI 
LATO 3 = 14 
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ANGOLO OPF'OSTO= 0.592 PhDIFINTI 
DIGITA IL TIPO DI PROBLEMA? 6 


Listing del programma 

<0 PPINT "PARTI DI UN TRIANGOLO" 

20 FRINT 

30 DIM A<3>,S(3> 

31 REM - ASSEGNA UN VALORE DI PI GRECO 
40 P=3.1415927 

4S REM - DIGITARE UN NUMERO CORRISPONDENTE AL TIPO DI PROBLEMA IN ACCORDO CON 

49 REM - LE PARTI CONOSCIUTE DEL TRIANGOLO DOVE A=ANGOLO, L=LUNGHEZZA DEL LATO 

50 PRINT "TIPI DI PROBLEMA 1=ALA,2=LAL..3=AAL,4=LLA,5=LLL,6=FINE PROGRAMMA" 

60 PRINT "DIGITA IL TIPO DI PROBLEMA"; 

70 INFUT X 

79 REM - INDIRIZZA IL PROGRAMMA AI CALCOLI OPPORTUNI 

30 IF X=6 THEN 560 

90 IF X=5 THEN 390 

100 IF X=4 THEN 300 

118 IF X=3 THEN 260 

120 IF X=2 THEN 190 

130 PRINT "DIGITA ANGOLO..LATO,ANGOLO"; 

140 INPUT A<1),S<3>,A(2> 

150 A(3)=P-A<1>-A<2) 

160 3<1>=S<3)#SIN<A<1)VSIN(A<3)> 

170 S<2>=SC3>#SIN(A<2))/SIN<A(3» 

ISO GOTO 440 

190 PRINT "DIGITA LATO,ANGOLO,LATO"; 

200 INPUT 3C3),A<1),S<2) 

210 S<l)=3QR<S<3>t2+S<2)t2-2*SC3)*3<2>*C0S<Aa>>> 

220 A<2)=SIN<.A< 1> )/S< 1>*S<2> 

225 B<2>*S6R<1-<A<2>>12> 

230 A<2>=ATN<A<2>/B<2>> 

240 A<3)=P-A<l>-ft<2) 

250 GOTO 440 

260 PRINT "DIGITA ANGOLO,ANGOLO,LATO"; 

270 INPUT A<3>,A<2>,S<3> 

2S0 A<1>=P-A<2)-R<3) 

290 GOTO 160 

300 PRINT "DIGITA LATO,LATO,ANGOLO"; 

310 INPUT S<1),S<2),A(1) 

320 T=S<2>#SIN<A<1>> 

330 IF S<1XT THEN 520 
340 S<3)=SQR<S<2>12-Tt2; 

350 IF S<1X=T THEN 380 
360 V=SQR(S<1>T2-TT2> 

370 S(3)=S<3>+V 
330 GOTO 220 

390 PRINT "DIGITA LATO,LATO,LATO"; 

400 INPUT S<1),S<2),S<3> 

410 A<1)*<S<2> T2+S<3) t2-S<1>12V2/S<2VS<3> 

415 B(1>=SQR(1-<A<1))T2) 

420 A(1)=ATN<B(1>/A(1>> 

430 GOTO 220 
440 PRINT 

449 REM - STAMPA I RISULTATI 

459 REM - GLI^ANGOLI DI UN TRIANGOLO NON POSSONO ESSERE INFERIORI A ZERO 

460 IFA<IK0 THEN 520 

470 PRINT "LATO"; I; “="; INT<3<I>*1000+.5V1000 

480 PRINT "ANGOLO OPPOSTO 3 "; INT'IAd V1000 * 5V1000; "RADIANTI" 

490 NEXT I 
500 PRINT 
510 GOTO 60 
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520 PRINT 

530 PRINT "NON ESISTE SOLUZIONE" 
540 PRINT 
550 GOTO 60 
560 END 


OPZIONE 

Può essere più conveniente introdurre gli angoli in gradi piuttosto che in 
radianti. Il programma dovrà essere variato come mostrato nell’esempio. 


Esempio: 

Un quadrato misura 8,76” x 8,76”. Quale è la lunghezza della sua diagonale? 



La scala di uno scivolo misura 10’, lo scivolo 14’, la distanza fra la base della 
scala ed il punto finale dello scivolo è 13’. Qual’è l’angolo dello scivolo? 



PORTI DI UN TRIANGOLO 

TIPI DI PROBLEMA : 1=ALA.-2=LAL, 3=00L, 4=LLfi, 5=LLL,6=FINE PROGRAMMA 

DIGITO IL TIPO DI PROBLEMA? 2 

DIGITO LOTO,ANGOLO,LOTO? 8.76 , 30 , 3.76 

LOTO 1 = 12.333 
ANGOLO OPPOSTO» 30 GRADI 
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lato 2 

ANGOLO 
LATO 3 
ANGOLO 


= 8.76 

OPPOSTO" 45 GRADI 
= 8.76 

OPPOSTO® 45 GRADI 


DIGITA il tipo DI PROBLEMA? 5 
DIGITA lato.. LATO.LATO? 10 , 13 


LATO 1 
ANGOLO 
LATO 2 
angolo 
LATO 3 
angolo 


= 10 

OPPOSTO" 43.279 GRADI 
= 13 

OPPOSTO" 63.027 GRADI 
= 14 

OPPOSTO" 73.694 GRADI 


DIGITA IL TIPO DI PROBLEMA? 6 


14 


Oi^z i one 

1 REM - OPZIONE 44-45.145-146.205.275-276.305.430 
10 PRINT "PARTI DI UN TRIANGOLO" 


20 PRINT 

30 DIM A<3>.3<3> 

31 REM - ASSEGNA UN VALORE DI PI GRECO 


31 REM - ASSEGNA UN VALORE DI PI GRECO 
40 P=3.1415927 


140 INPUT Ad).S(3). A<2> 

145 Ad)=Ad>#C 

146 A<2>=A':2>*C 

150 A(3>=P-Ad)-A(2) 


200 INPUT S<3>. Ad>.S<2> 

20=; A(1 )=Ad>#C 

210 Sd)=SQR<S<3)t2+S<2>t2-2#S<3>#S<2>4iC03<fl<l>)> 


270 INPUT A<3>.A<2>.3(3> 

275 A<3)=AC3>*C 

276 A<2>=A<2>#C 

280 Ad)=P-A<2)-A<3) 


310 INPUT 3<1).3<2).A<1> 

315 Ad>=Ad>#C 

320 T=SC2;*SIN<Ad>) 


470 PRINT "LATO"; I; INT<Sd>*1000+.5V1000 

430 PRINT "ANGOLO OPPOSTO""; INT<A<I VC#1000+.5)71000; "GRADI" 

490 NEXT I 
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ANALISI DI DUE VETTORI 


Questo programma calcola l’angolo fra due vettori, l’angolo fra ogni vettore 
e gli assi, e l’ampiezza di ogni vettore. I vettori sono dati in uno spazio tridimensio¬ 
nale. 


Esempio: 

Trovare l’angolo (0) tra la diagonale di un cubo e la diagonale di una delle sue 
facce. Il cubo misura 4x4x4. 


(0.4.4) 



(4.4.4) 


(4.0.4) 


ANALISI DI DUE VETTORI 

VETTORE I ; X,Y,Z? 0,4,4 
VETTORE 2- X,Y,Z? 4,4,4 

VETTORE 1 : 

AMPIEZZA : 5.65685425 
ANGOLO CON L'ASSE X' 90.0000007 
ANGOLO CON L'ASSE V: 45.0000004 
ANGOLO CON L'ASSE Z- 45.0000004 

VETTORE 2 

AMPIEZZA: 6.92320323 
ANGOLO CON L'ASSE X: 54.7356108 
ANGOLO CON L'ASSE V 54.7356108 
ANGOLO CON L'ASSE Z- 54.7356108 

ANGOLO FORMATO DAI DUE VETTORI: 35.26439 

ALTRI DATI <1=SI, 0=NO>? 0 
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Listing del programma 

10 PRINT "ANALISI DI DUE VETTORI” 

20 PRINT 

30 DIM X<2),V<2>,Z<2>,M<2> 

39 REM - LE RIGHE DA 40 A 70 RICHIEDONO LE COORDINATE DEI VETTORI 

40 PRINT "VETTORE 1 X,V,Z”; 

50 INPUT Xa>,V<l>,2<l> 

60 PRINT "VETTORE 2- X,V,Z"; 

70 INPUT X<2),V<2>,Z<2> 

80 PRINT 

89 REM - VILLO PER ANALIZZARE ENTRAMBI I VETTORI 

90 POR 1=1 TO 2 

99 REM - CALCOLA L'AMPIEZZA, STAMPA 

100 M<I>=SQR(X(I> T2+V(I> t2+Z<I> T2> 

109 REM - IL VETTORE E' UN PUNTO? SE SI, NON SI PUÒ' CALCOLARE L'ANGOLO 

110 IF M<I>=0 THEN 220 
120 PRINT “VETTORE", I; 11 : " 

130 PRINT "AMPIEZZA:";M(I) 

139 REM - FATTORE DI CONVERSIONE DA RADIANTI A GRADI 

140 S=5Z.29578 

149 REM - CALCOLA L'ANGOLO TRA IL VETTORE E L'ASSE X, STAMPA 

150 J=X(I>/M(I) 

153 IF J=0 THEN J=lE-9 
155 W=SQR(1-JT2> 

160 PRINT "ANGOLO CON L'ASSE X:",ATN<U/J)#S 

169 REM - CALCOLA L'ANGOLO TRA IL VETTORE E L'ASSE V, STAMPA 

170 J=V<IVM<I> 

173 IF J=0 THEN J=lE-9 
175 U=SQR<1-Jt2> 

180 PRINT "ANGOLO CON L'ASSE V:";ATN<W/J>#S 

189 REM - CALCOLA L'ANGOLO TRA IL VETTORE E L'ASSE Z, STAMPA 

190 J=Z<I>/M<I> 

193 IF J=0 THEN J=lE-9 
195 W=SQRC1-JT2) 

200 PRINT "ANGOLO CON L'ASSE Z- ATN(W/J)*S 
210 PRINT 
220 NEXT I 
230 J=0 

239 REM - SE ENTRAMBI I VETTORI SONO DEI PUNTI, NON 31 PUÒ' CALCOLARE L'ANGOLO 

240 IF M<1>=0 THEN 310 
250 IF M<2>=0 THEN 310 

259 REM - CALCOLA L'ANGOLO TRA I DUE VETTORI 

260 J=<Xa)*X<2)+Va)#VC2)+Z<l>#Z<2)>/M<l)/M<2) 

269 REM - I VETTORI SONO PERPENDICOLARI? 

270 IF JO0 THEN 300 
280 J=90 

290 GOTO 310 

299 REM - CALCOLA L'ANGOLO IN GRADI, STAMPA 

300 1<I=SQR(1-Jt2) : J=ATN<14-'J>*3 

310 PRINT "ANGOLO FORMATO DAI DUE VETTORI J 
320 PRINT 

329 REM - IL PROGRAMMA TERMINA 0 RIPARTE? 

330 PRINT "ALTRI DATI <1=SI, 0=NO)"; 

340 INPUT Z 

350 IF Z=1 THEN 39 
360 END 
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OPERAZIONI SU DUE VETTORI 


Questo progamma permette quattro operazioni su due vettori dati in uno 
spazio tridimensionale. Le operazioni consentite sono: 

1) Addizione 

2) Sottrazione 

3) Prodotto scalare 

4) Prodotto vettoriale. 


Esempio: 

Due vettori vanno dall’origine ai punti A(5, — 1,2) e B(l, 4, 9). Effettuare le 
quattro precedenti operazioni su questi vettori. 

OPERAZIONE SU DUE VETTORI 

VETTORE A : COORDINATE X, V, Z? 5 ,-l , 2 
VETTORE B COORDINATE X, V, Z? I , 4 , 9 

A+B= 6 j 3 , li 
A-B= 4 ,-5 ,-7 
A. B= 1? 

A'*B=-17 ,-43 , 21 

ALTRI DATI ? <1=SI,0=N0>? 0 


Listing del programma 

10 PRINT "OPERAZIONI SU DUE VETTORI" 

20 PRINT 

30 PRINT "VETTORE A: COORDINATE X, V, Z"; 

40 INPUT XI,VI,ZI 

50 PRINT "VETTORE B' COORDINATE X, V, Z"; 

60 INPUT X2, Y2.Z2 
70 PRINT 

78 REM - OPERA L'ADDIZZIONE TRA I VETTORI, STAMPA LE COORDINATE 

79 REM - DEL VETTORE RISULTANTE 

30 PRINT "A+B=";X1+X2.:",";V1+V2;",";Z1+Z2 

88 REM - OPERA LA SOTTRAZIONE TRA I VETTORI, STAMPA LE COORDINATE 

89 REM - DEL VETTORE RISULTANTE 

90 PRINT "A-B=“;X1-X2;",",V1-V2;21-22 

99 REM - CALCOLA IL PRODOTTO SCALARE, STAMPA 

100 PRINT "A.B=";X1*X2+V1*V2+Z1*Z2 

109 REM - CALCOLA IL PRODOTTO VETTORIALE, STAMPA 

110 PRINT "A*B=",V1#Z2-Z1#V2;","JZ1*X2-X1*Z2J","X1*V2-V1*X2 
120 PRINT 

129 REM - RIPARTE 0 TERMINA IL PROGRAMMA ? 

130 PRINT "ALTRI DATI ? <1=SI,0=NO>"; 

140 INPUT Z 

150 IF X=1 THEN 20 
160 END 
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CONVERSIONE ANGOLARE: RADIANTI 
IN GRADI 

Questo programma permette la conversione di un angolo dato in radianti a 
gradi, minuti e secondi. 

Esempio: 

Quanti gradi, minuti, secondi corrispondono ad un angolo di 2,5 radianti? E 
ad uno di 118 radianti? 


rONVERSIONE ANGOLARE : RADIANTI IN GRADI 

ANGOLI IN RADIANTI(INTRODUCI 0 PER FINIRE IL PROGRAMMA)? 2.5 
GRADI = 143 
MINUTI = 14 
SECONDI = 22.01 

ANGOLI IN RADIANTI? 118 
GRADI = 280 
MINUTI = 54 
SECONDI =6.?? 

ANGOLI IN RADIANTI? 0 


Listing del programma 

10 PRINT "CONVERSIONE ANGOLARE: RADIANTI IN GRADI" 

20 PRINT 

30 PRINT "ANGOLI IN RADIANTICINTRODUCI 8 PER FINIRE IL PROGRAMMA)"; 
48 GOTO 60 

50 PRINT "ANGOLI IN RADIANTI"; 

60 INPUT R 

69 REM - TEST PER FINIRE IL PROGRAMMA 

70 IF R=0 THEN 170 

79 REM - CONVERTI DA RADIANTI IN SECONDI 

80 A=3600*180*R/3.1415927 

39 REM - CALCOLA IL NUMERO Di GRADI INTERI 
90 D=INT(A. '3600) 

99 REM - CALCOLA IL NUMERO DI ANGOLI GIRO INTERI 

100 D1=INT(D/360) 

109 REM - CALCOLA I GRADI DI OGNI ANGOLO MINORE DI 360 GRADI 

110 PRINT " GRADI =";D-360*D1 

119 REM - CALCOLA I PRIMI, STAMPA 

120 PRINT “ MINUTI =“;INT((A-D*3600>/60) 

129 REM - CALCOLA I SECONDI, ARROTONDA, STAMPA 

130 S=A-D*3600-(INT((A-D*3600)760))*60 
140 PRINT " SECONDI =";INT(100*S+.5>/100 
150 PRINT 
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159 REM - IL PROGRAMMA RIFARTE 

160 GOTO 50 
170 END 


OPZIONE 

Si può fornire la risposta in gradi e decimi di grado anziché in gradi, minuti, 
secondi. In tal caso il programma dovrà essere variato come segue. 


Esempio: 

Quanti gradi vale un angolo di 2,5 radianti? 

CONVERSIONE ANGOLARE RADIANTI IN GRADI 

ANGOLI IN RADIANTI(INTRODUCI 0 PER FINIRE IL PROGRAMMA)? 2.5 
GRADI = 143 

ANGOLI IN RADIANTI? 0 


Ok>z i one 
! REM - OPZIONE 110 

10 PRINT "CONVERSIONE ANGOLARE : RADIANTI IH GRADI" 


109 REM - CALCOLA I GRADI DI OGNI ANGOLO MINORE DI 360 GRADI 

110 PRINT " GRADI ='MNT<(D-360*D1 >*100+. 5V100 
150 PRINT 


170 END 
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CONVERSIONE ANGOLARE: GRADI 
IN RADIANTI 


Il programma converte un angolo dato in gradi, minuti, secondi in radianti. 


Esempio: 

Un angolo misura 30 gradi, 5 minuti e 3 secondi. Quale sarà la sua misura in 
radianti? 

Trovare la misura in radianti di due angoli di: 278° 19’ 54” e 721° 0’ 0”? 


CONVERSIONE ANGOLARE' GRADI IN RADIANTI 
•PER TERMINARE IL PROGRAMMA INTRODUCI 0,0,0> 


ANGOLO IH GRADI, PRIMI, 
RADIANTI = .525067685 

ANGOLO IH GRADI, PRIMI, 
RADIANTI = 4.8578033 

ANGOLO IN GRADI, PRIMI, 
RADIANTI = .0174514931 

ANGOLO IN GRADI, PRIMI, 


SECONDI? 30 , 5 , 3 
SECONDI? 278 , 13 , 54 
SECONDI? 721 ,0,0 
SECONDI? 0 , 0,0 


Listing del programma 

10 PRINT "CONVERSIONE ANGOLARE : GRADI IN RADIANTI" 

20 PRINT 

30 PRINT "<PER TERMINARE IL PROGRAMMA INTRODUCI 0,0,0)" 

40 PRINT “ANGOLO IN GRADI, PRIMI, SECONDI",’ 

50 INPUT D,M,3 

59 REM - TEST PER TERMINARE IL PROGRAMMA 

60 IF DO0 THEN 100 
70 IF MO0 THEN 100 
80 IF SO0 THEN 100 
90 GOTO 150 

99 REM - CONVERTI I GRADI, PRIMI, SECONDI IN GRADI 

100 A=D+M/60+S/3600 

109 REM - CALCOLA IL NUMERO DEGLI ANGOLI GIRO 

110 R=INT(A/360) 

119 REM - CALCOLA IL NUMERO DEGLI ANGLOI MINORI DI 360 GRADI, STAMPA 

120 PRINT "RADIANTI =“;A*.01745329-R*6.2831353 
130 PRINT 

139 REM - IL PROGRAMMA RIPARTE 

140 GOTO40 
150 END 


OPZIONE 

Può essere più comodo introdurre l’angolo in gradi e frazione di gradi 
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anziché in gradi, minuti, secondi. Il programma va allora modificato come 
nell’esempio. 


Esempio: 

Quanti radianti corrispondono ad un angolo di 33,08°? E ad uno di 90°? 

CONVERSIONE ANGOLARE GRADI IN RADIANTI 

<PER TERMINARE IL PROGRAMMA INTRODUCI 0> 

ANGOLO IN GRADI ? 33.OS 
RADIANTI = .577354333 

ANGOLO IN GRADI ? 30 
RADIANTI = 1.5707961 

ANGOLO IN GRADI ? 0 


Opz ione 

1 REM - OPZIONE 30-60 __ 

10 PRINT "CONVERSIONE ANGOLARE : GRADI IN RADIANTI" 
20 PRINT 

30 PRINT "<PER TERMINARE IL PROGRAMMA INTRODUCI 0V 
40 PRINT "ANGOLO IN GRADI “J 
50 INPUT A 

59 REM - TEST PER TERMINARE IL PROGRAMMA 

60 IF A=0 THEH 150 


109 REM - CALCOLA IL NUMERO DEGLI ANGOLI GIRO 


150 ENI 
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CONVERSIONE DI COORDINATE 


Questo programma converte le coordinate di un punto dato in coordinate 
cartesiane in coordinate polari, e viceversa. 

Le formule di conversione sono le seguenti: 


r = -J x 2 + y 2 
A = arcotangente ( y/x ) 
x = r • cos. ( A ) 

y - r • sen. ( A ) 

dove: 

x = ascissa 1 

y = ordinata) Coordinate cartesiane 

r = ampiezza del raggio ì 

A = angolo (in gradi) \ Coordinate polari 

Esempi: 

Trovare le coordinate cartesiane del punto (2, 30,5°) dato in coordinate 
polari. 

Se un punto nel sistema cartesiano ha coordinate (7,18), quali sono le sue 
coordinate nel sistema polare? 

Un punto è localizzato da (0, -46,8). Come sarà localizzato in coordinate 
polari? 

CAMBIAMENTO DI COORDINATE 

< 1=DA CARTESIANE A POLARI) 

<-l=DA POLARI A CARTESIANE) 

( 0=FINE PROGRAMMA) 

IN QUALE SENSO?-1 
R,A? 2 , 30.5 
X = 1.72 , V = 1.02 
IN QUALE SENSO? 1 
X,Y? 7 , 18 
R » 19.31 . A = 68.75 
IN QUALE SENSO? 1 
X,V? 0 ,-46.8 
R = 46.8 , A = 270 
IN QUALE SENSO? 0 


Listing del programma 

10 PRINT “CAMBIAMENTO DI COORDINATE" 
20 PRINT 
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30 PRINT " ( 1=DA CARTESIANE A POLARI)" 

40 PRINT " <-l=DA POLARI A CARTESIANE)" 

50 PRINT “ < 0=FINE PROGRAMMA)" 

60 PRINT "IN QUALE SENSO"; 

70 INPUT D 

79 REM - FINE PROGRAMMA ' 

80 IF D=0 THEN 380 

89 REM - INDIRIZZA IL CORSO DEL PROGRAMMA ALLA CONVERSIONE OPPORTUNA 

90 IF D=-l THEN 320 

98 REM - CONVERTE LE COORDINATE CARTESIANE IN POLARI 

99 REM - DIGITA LE COORDINATE CARTESIANE 'ASCISSA, ORDINATA) 

100 PRINT "X,V"; 

110 INPUT X,V 

119 REM - IL PUNTO APPARTIENE ALL'ASSE DELLE V ? 

120 IF X=0 THEN 170 

129 REM - IL PUNTO APPARTIENE ALL'ASSE DELLE X ? 

139 REM - CALCOLA LE COORDINATE POLARI, ARROTONDA, STAMPA 

140 PRINT "R =";INT<SGN<X)*SQR<XT2+V12)*108+.5)7100; 

150 PRINT " A =",INT<RTNCV/X)#180/3.1415927*100+.5)7100 
160 GOTO 60 

169 REM - IL PUNTO APPARTIENE ALL'ASSE DELLE V; E' L'ORIGINE ? 

170 IF V=0 THEN 240 

180 PRINT "R =";ABS(V);",“; 

189 REM - IL PUNTO E' SOPRA 0 SOTTO L'ORIGINE ? 

190 IF V<0 THEN 220 
200 PRINT " A = 98" 

210 GOTO 60 

220 PRINT * A = 270“ 

230 GOTO 60 

239 REM - IL PUNTO E' L'ORIGINE 

240 PRINT "R =0, A = 0" 

250 GOTO 60 

259 REM - IL PUNTO APPARTIENE ALL'ASSE DELLE X 

260 PRINT “R =“;A8S<X),","; 

269 REM - IL PUNTO E' ALLA DESTRA 0 ALLA SINISTRA DELL'ORIGINE 

270 IF X<0 THEN 300 
280 PRINT " A = 0" 

290 GOTO 60 

300 PRINT " A = 180" 

310 GOTO 60 

318 REM - CONVERTE LE COORDINATE POLARI IN CARTESIANE 

319 REM - DIGITA LE COORDINATE POLARI (AMPIEZZA DEL RAGGIO, ANGOLO) 

320 PRINT "R,A"; 

330 INPUT R,A 

339 REM - CONVERTE I GRADI IN RADIANTI 

340 M=(A-INT<A7360)*360)*3.14159277180 

349 REM - CALCOLA LE COORDINATE CARTESIANE, ARROTONDA, STAMPA 

350 PRINT “X =";INT(R*COS(M)*100+.5)7100.:","; 

360 PRINT “ V =",INT(R*SIN<M)*100+.5)7100 
370 GOTO 60 

380 END 
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DISEGNO DI COORDINATE 


Questo programma disegna punti su un set di assi coordinati. Bisogna fornire 
le coordinate x e y di tutti i punti che devono essere disegnati, il punto finale 
dell’asse x e quello dell’asse y, e gli incrementi fra i vari punti di ogni asse. 

Il grafico non è convenzionale in quanto l’asse y è orizzontale mentre l’asse x 
è verticale, inoltre gli assi non si intersecano necessariamente a zero. Il punto di 
intersezioni degli assi viene stampato sopra il grafico. 

Il limite massimo di punti che possono essere disegnati può essere variato, in 
più o in meno, variando l’istruzione 30 nel seguente modo: 

30 DIM X(N + 1), Y(N + 1) 
dove: N = massimo numero di punti da disegnare. 

La lunghezza dell’asse y è limitata dalla lunghezza del sistema di uscita. Il 
programma controlla che la lunghezza non superi la lunghezza dello schermo che 
in questo caso (sistema PET) è di 40 spazi. Questo test presente nellistruzione 90 
può essere variato per tener conto di sistemi diversi. Nel caso di un sistema CBM 
(80 spazi) l’istruzione 90 diverrà: 

90 IF B2< = 78 THEN 120 


Esempio: 

La tabella seguente riporta le altezze di dieci uomini e dei loro figli. Riportate 
questi dati su di un grafico. 


padri 

figli 


65 

63 

67 

64 

68 

62 

70 

66 

68 

67 

69 

71 

68 

66 

68 

65 

69 

66 

68 

65 

71 

67 

68 

70 


altezza pollici 


RAPPRESENTAZIONE DI COORDINALE 

ASSE DELLE X: ESTREMO SINISTRO, ESTREMO DESTRO, UNITA' DI MISURA 

■> , 33 , .5 

Asii DELLE V' ESTREMO INFERIORE, ESTREMO SUPERIORE, UNITA' DI MISURA 

R 22 , 33 , .5 

NUMERO DI PUNTI DA RAPPRESENTARE? 12 
COORDINATE DEL PUNTO 1 ? 25 , 28 
«UNTO 2 ? 23 , 26 
RUNTO 3 ? 27 , 28 
-■UNTO 4 ? 24 , 25 
PUNTO 5 ? 28 , 29 
PUNTO e ? 22 , 26 
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********■**■**■***■*•**•*■*** 


PUNTO 

7 ? 30 , 

28 

PUNTO 

S ? 26 , 

25 

PUNTO 

9 ? 28 , 

31 

PUNTO 

10 ? 27 

, 27 

PUNTO 

11 ? 29 

, 28 

,PUNTO 

12.? 31 

, 30 


INTERSEZIONE DEGLI OSSI fi < 22 , 22 > 


+ 


+ 


+ . 


+ 


+ + 


+ + 


+ 


+ 


+ 


?< 


Listing del programma 

10 PRINT "RfiPPRESENTfiZIONE DI COORDINATE'' 

20 PRINT 

28 REM - DIMENSIONARE XO E VO fi CN+l) 

29 REM - DOVE N= NUMERO DI PUNTI Dft RAPPRESENTARE, LIMITE SUPERIORE?? 

30 DIM Xa00),Vcl00) 

39 REM - INSERIRE LE INFORMAZIONI NECESSARI AD ASSEGNARE GLI ASSI 

40 PRINT "ASSE DELLE X: ESTREMO SINISTRO, "ESTREMO DESTRO, UNITA' DI MISURA” 

50 INPUT Al,A2,A3 

S0 PRINT "ASSE DELLE V ESTREMO INFERIORE, ESTREMO SUPERIORE, UNITA' DI MISURA¬ 
LO INPUT B1,B2,B3 
80 B2=(B2-E'l :>/B3 

88 REM - LASSE DELLE V E' TROPPO LUNGO PER LA PERIFERICA? SE SI, CAMBIA 

39 REM - L'ESTREMO 0 AUMENTA L'UNITA' DI MISURA 

90 IF B2<=70 THEN 120 

100 PRINT "CAMPO V TROPPO LARGO" 

110 GOTO 60 

120 PRINT "NUMERO DI PUNTI DA RAPPRESENTARE"; 

ISO INPUT N 

139 REM - NESSUN PUNTO DA RAPPRESENTARE? FINE PROGRAMMA 

140 IF M=0 THEN 1070 

149 REM - TROPPI PUNTI? SE SI, RIINTRODURRE IL NUMERO DI PUNTI 

150 IF N<=99 THEN 1S0 
160 PRINT "TROPPI PUNTI” 

178 GOTO 120 

179 REM - CICLO PER INSERIRE LE COORDINATE X,V PER OGNI PUNTO 
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130 FOR 1 = 1 
130 IF I>1 

700 FRI NT “ 


TO N 

THEN 220 

COORDINATE DEL PUNTO 


"ili 


.'10 GOTO 230 

?20 PRINT " PUNTO “; I ; 

230 INPUT X<I>,V<I> 

'39 REM - ARROTONDA OGNI COORDINATA X,V ALLA PIU' 
'■40 X< I>=INT< <X<I)-Al )/A3+. 5> 

550 V'I>=INTC<V<I>-BlVB3+.5> 


:-60 NEXT I 


?69 REM - CALCOLA LE COORDINATE X,V AGGIUNTE 

.->70 V<N+l)=INT<B2+.5)+l 

?30 X<N+1)=INT<(A2-A1)/A3+.5)+l 


VICINA UNITA' 


DI MISURA 


:-90 PRINT 

599 REM - RILEVA L'INTERSEZIONE DEGLI ASSI 

300 PRINT "INTERSEZIONE DEGLI ASSI A ("i Al; ",•;B1;">” 

313 PRINT 

319 REM - ORDINA LE COORDINATE, RIORDINA DA X(l) A X(N> IN SENSO CRESCENTE 
730 POR J=1 TO N 


-■30 FOR 1=1 TO N-J 

740 A=X<I> 

350 B=V <I) 


360 C=X<I+1) 

370 D=va + i> 

3S0 IF A<C THEN 430 
330 X<I>=C 
400 V( I >=D 
410 X<I+1)=A 
420 V<I+l>=B 


430 NEXT I 
440 NEXT J 

449 REM - IL PROSSIMO PUNTO DA RAPPRESENTARE E' MEMORIZZATO IN T 

450 T=1 

459 REM - ELIMINA I PUNTI CHE NON RIENTRANO NEL SEMIASSE POSITIVO DELLE X 


460 FOR P=0 TO N-l 

470 IF X<P+i>)=0 THEN Q=R:p=N 

480 NEXT P 

405 P=0 

4S3 REM - CICLO PER RICHIAMARE OGNI UNITA' DI MISURA X PER LINEE DI STAMPA 
490 FOR 1=0 TO INT<(A2-A1>/A3+.5> 

500 T=T+P 

509 REM - CONTA IL NUMERO DI PUNTI DA RAPPRESENTARE SU DI OGNI RIGA IN P 

510 P=0 

519 REM - TUTTI I PUNTI SONO RAPPRESENTATI? 

520 IF T>N THEN 540 

529 REM - VALORE DI X SULLA RIGA X? SE SI, VERIFICA V 

530 IF XCT>=I THEN 590 

539 REM - PRIMA RIGA? SE SI, L'ASSE DELLE V DEVE ESSERE RAPPRESENTATO 

540 IF 1=0 THEN 570 

549 REM - RAPPRESENTAZIONE DELL'ASSE DELLE X 

550 Pkìni 

560 GOTO 1040 


570 S=N+1 
530 GOTO 920 
590 FOR L=T TO N 

599 REM - IL PROSSIMO PUNTO DA RAPPRESENTARE SI TROVA SULLA STESSA RIGA? 

600 IF X<LX=X<T> THEN P=P+1 

609 REM - CONTA I PUNTI DA RAPPRESENTARE SU OGNI RIGA 
620 NEXT L 

629 REM - RAPPRESENTA UN PUNTO 

638 REM P - 1 CICLO DI ORDINAMENTO DELLE COORDINATE V CON UNA STESSA COORDINATA 

639 REM - IN SENSO CRESCENTE 

640 FOR J=1 TO P 
650 FOR L=1 TO P-J 
660 D=V<T+L-1> 

670 B=V<T+L> 

630 IF D<=B THEN 710 
690 VCT+L-1XB 

700 V(T+L)=D 


X 
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710 NEXT L 
720 NEXT J 
730 FOR L=0 TO P-l 
740 2=V<T+L) 

749 REM - ANALIZZA SE LA COORDINATA V ESCE DAL PIANO 

750 IF Z>=0 THEN 770 
760 NEXT L 

769 REM - PUNTO DA RAPPRESENTARE SULL'ASSE DELLE X? 

770 IF 1=0 THEtf 910 

779 REM - PUNTO DA RAPPRESENTARE SULL'ASSE DELLE V? 

730 IF Z=0 THEN S0O 

789 REM - RAPPRESENTA L'ASSE DELLE X 

790 PRINT 

800 IF L=P-1 THEN 870 
810 FOR J=L TO P-l 

819 REM - ANALIZZA SE LA COORDINATA V ESCE DAL PIANO 

820 IF Z>B2 THEN 1040 

829 REM - SALTA LA DUPLICAZIONE DELLE COORDINATE 

830 IF V<T+J)=Z THEN 860 

839 REM - RAPPRESENTA IL PUNTO 

840 PRINTTAE(Z);"+"; 

850 Z=V<T+J> 

860 NEXT J 

S69 REM - ANALIZZA SE LA COORDINATA V ESCE DAL PIANO 
870 IF Z<0 THEN 1040 
880 IF Z>B2 THEN 1040 

889 REM - RAPPRESENTA IL PUNTO 

890 PRINTTAB<Z>;"+"; 

900 GOTO 1040 

910 S=T+L 

919 REM - CICLO PER STABILIRE LA STAMPA DELLA PRIMA RIGA 

920 FOR J=0 TO B2 

929 REM - PUNTO DA RAPPRESENTARE? 

930 IF V<S>OJ THEN 1010 

939 REM - RAPPRESENTA IL PUNTO 

940 -PRINT ,, +“ ; 

949 REM - SALTA LA DUPLICAZIONE DELLE COORDINATE 

950 FOR K=S TO T+P-l 

960 IF V(K)=V(S) THEN 990 

970 S=K 

980 GOTO 1020 

990 NEXT K 

1000 GOTO 1020 

1009 REM - RAPPRESENTA L'ASSE DELLE V 

1010 PRINT“*“; 

1020 NEXT J 

1029 REM - ETICHETTA L'ASSE DELLE V 

1030 PRINT "V"; 

1039 REM - AVAN2A LA PERIFERICA ALLA PROSSIMA RIGA 

1040 PRINT 
1050 NEXT I 

1059 REM - ETICHETTA L'ASSE DELLE X 

1060 PRINT “X"; 

1070 END 
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GRAFICO DI UN’EQUAZIONE POLARE 


Questo programma disegna una data funzione in coordinate polari. Si posso¬ 
no disegnare 90 punti uno ogni quattro gradi. 

Il grafico è convenzionale in quanto gli assi si intersecano allo zero e l’asse x è 
orizzontale mentre l’asse y è verticale. Bisogna solo specificare il valore assoluto 
dei punti finali. 

L’incremento fra ogni punto dell’asse x e ogni punto dell’asse y è calcolato in 
modo che i punti degli assi risultino equidistanti dall’origine. Ciò per permettere 
di tracciare la funzione con la minima distorsione. L’aggiustamento di ogni 
incremento è necessaria a causa delle diverse dimensioni (orizzontali e verticali) 
dello schermo. 

È necessario introdurre la funzione da rappresentare prima di far girare il 
programma. La funzione deve essere introdotta come una funzione di d.f(d) sarà 
introdotta e posta uguale a F nella linea 130. Per esempio, la funzione f(d) = 
2 (1-cos (d)) verrà introdotta come segue: 

130 F = 2 * (1-COS (D)) 
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Esempio: 


Disegnare la funzione f(d) — 2(1 - cos (d)). 

RAPPRESENTAZIONE DI UN EQUAZIONE IN COORDINATE F0LAR1 

VALORE ASSOLUTO DEGLI ESTREMI? 4 

UNITA' DI MISURA DELL'ASSE 

X= .133333333 

UNITA' DI MISURA DELL'ASSE 

V= .222222222 


f 


* 


♦ 


* 


♦ 


* 

4-4-4- 

* 

4- 4- 4- 4» -*-4* 

« 

4- 4- 

4-4- * 
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*«4- 

4- 

*4- 

4- 

* 4-4- 

4- 

♦ 4- 

♦ 

* 4- 

4- 

♦ 4- 

♦ 4- 

4- 

* 4- 

4- 

♦ 4-4- 
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♦ 4-4- 

4- 
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* 4- 

4- 

* 4- 

4- 

♦ 4-4- 

4- 

*4- 

4- 

4-*4- 

4- 4- 

4-4- * 

4-4-4- 4-4-4- 

* 

4-4-4- 
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♦ 


♦ 


♦ 


♦ 


* 


♦ 

V 


Listing del programma 

18 FRI UT "RRPPRESENTAC ; 3! L 31 UN ESUASIONE IN COORDINATE POLARI” 

CO PRINT 

28 REM - LE DIMENSIONI DELLE MATRICI CONO SUFFICIENTI PER 90 PUNTI 
2? REM - UNA COORDINATA X AGGIUNTA VIENE CALCOLATA DAL PROGRAMMA 
30 DIM X(?1),V<?0> 

3? REM - NUMERO DI PUNTI DA CALCOLAPE 
40 N=90 

49 REM - IL VALORE ASSOLUTO DI TUTTI GLI ESTREMI E' UGUALE 

50 PRINT "VALORE ASSOLUTO DEGLI ESTREMI".: 

SO INPUT Z 

70 PRINT 
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, s REM - CALCOLA L'UNITA' DI MISURO DEGLI ASSI IH ACCORDO AL NUMERO DI 
‘St REM - CARATTFRF F’FR ARSE 

pRINT "UNITA' DI MISURA DELL'ASSE X=",Z/30 
§§ PRINT "UNITA' DI MISURA DELL'ASSE V=".2/1S 
PRINT 

US POR 1=1 TO N 

119 REM - CONVERTE I GRADI IN RADIANTI 
,20 D=.06951317*1 

150 F=2#<l-COS(D)>‘REM - INSERISCI QUI LA FUNZIONE <F=“FUNSIONE”) 

133 REM - CALCOLA OGNI COORDINATA CARTESIANA, ARROTONDA ALLA PIU' VICINA UNITA' 

139 REM - DI MISURA 

140 X< I>=INT< <<F*COS(D>/Z+l)#30)+.S) 

150 V<I)=INT<(<-F*SIN<D),'Z+l)*lS>+.5> 

160 NEXT I 

169 REM - ORDINA LE COORDINATE; RIORDINA DACLOSEVCO A VCN) IN SENSO CRESCENTE 

170 FOR J=1 TO N 
130 FOR 1=1 TO N-J 
190 A=Xd> 

700 B=VCD 

710 IF B<=V(I+1) THEN 260 
720 X<I)=X<I+1> 

230 V(I)=V(m> 

240 X<I+1)=A 
250 V( I+l>=B 
260 NEXT I 
270 NEXT J 

279 REM - IL PROSSIMO PUNTO DA RAPPRESENTARE E' MEMORIZZATO IN T 

280 T=1 

2S9 REM - SALTA I PUNTI CHE ESCONO DAL SEMIASSE POSITIVO DELLE V 

290 FOR P=0 TO N-l 

300 IF V<P+1)3=0 THEN 320 

310 NEXT P 

319 REM - CICLO PER RICHIAMARE OGNI UNITA' DI MISURA V PER RIGA DI STAMPA 

320 FOR 1=0 TO 36 
330 T=T+P 

339 REM - IL NUMERO DI PUNTI DA RAPPRESENTARE IN OGNI RIGA E' MEMORIZZATO IN P 

340 P=0 

349 REM - TUTTI I PUNTI SONO STATI RAPPRESENTATI? 

350 IF T>N THEN 370 

359 REM - VALORE DI V SULLA RIGA V? 

360 IF V(T>=I THEN 420 

369 REM - STAMPA ASSE DELLE X? 

370 IF 1=18 THEN 400 

379 REM - STAMPA ASSE DELLE V? 

3SO PRINTTAB<30>; 

390 GOTO 360 
400 S=N+1 
410 GOTO 740 
420 FOR L=T TO N 

429 REM - IL PROSSIMO PUNTO DEVE ESSERE RAPPRESENTATO SULLA STESSA RIGA 

430 IF V<L»V<T> THEN 450 
440 F-P+l 

450 NEXT L 

460 IF P=1 THEN 560 

46S REM - CICLO PER ORDINARE LE COORDINATE X CON UNA STESSA COORDINATA V; 

469 REM - RIORDINA IN SENSO CRESCENTE 

470 FOR J=1 TO P 
430 FOR L=1 TO P-J 
490 C=X<T+L-1> 

500 A=X<T+L> 

510 IF COA THEN 540 
520 X<T+L-1>=A 
530 XCT+L)=C 
540 NEXT L 
550 NEXT J 

559 REM - STAMPA L'ASSE BELLE X 

560 IF 1=18 THEN 730 
570 L=-l 

530 S=0 

590 FOR K=0 TO P-l 

598 REM - DEVE ESSERE RAPPRESENTATO PIU' DI UN PUNTO ALLO STESSO PUNTO 
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599 REM - DEL GRAFICO 

600 IF X<T+K>=L THEH 690 
SIO L=X(T+K> 

619 REM - RAPPRESENTA UN PUNTO SULL'ASSE V? 

620 IF L=30 THEN 660 

629 REM - RAPPRESENTA UN PUNTO ALLA SINISTRA DELL'ASSE V? 

630 IF LC30 THEN 670 
640 IF 3=1 THEH 670 

649 REM - STAMPA L'ASSE DELLE V 

650 PRINTTAB<30>;"#"; 

660 S=1 

669 REM - IL PUNTO NON E' CONTENUTO NEL SEMIASSE POSITIVO DELLE X 

670 IF LC60 THEN S60 

679 REM - RAPPRESENTA IL FUNTO 

680 PRINTTADCLX; 

690 NEXT K 

700 IF S=1 THEN 860 

789 REM - STAMPA L'ASSE DELLE V 
718 PRINTTAE<30>. 

728 GOTO 360 

739 REM - CICLO PER STAMPARE LA RIGA DELL'ASSE DELLE X 

740 FOR J=0 TO 60 

750 IF X(S)CJ THEN 830 

759 REM - RAPPRESENTA UN PUNTO SULL'ASSE DELLE X 

760 PRIHT-+"; 

770 FOR K=S TO T+P-l 
730 IF X<K>=X<3> THEN 810 

790 S=K 

300 GOTO 340 
310 NEXT K 
320 GOTO 340 

829 REM - STAMPA L'ASSE DELLE X 
330 FRINT 
340 NEXT J 

349 REM - ETICHETTA L'ASSE DELLE X 
850 PRINT "X"; 

S68 PRINT 
870 NEXT I 

379 REM - ETICHETTA L'ASSE DELLE V 
330 FRINT TABC30);"V" 

390 END 
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RAPPRESENTAZIONE DI FUNZIONI 


Questo programma calcola e traccia fino ad un massimo di nove funzioni. 
Tutte le funzioni sono funzioni di x, e tutte vengono tracciate sullo stesso set di 
assi. 

Per tracciare gli assi si devono introdurre i punti finali dell’asse x e dell’asse y. 
Bisogna anche fornire l’incremento che c’è fra un punto e l’altro di ogni asse. 

Il grafico non è convenzionale, poiché l’asse x è verticale mentre Tasse y è 
orizzontale. Per leggere il grafico si devono ruotare le uscite di 90° in senso 
antiorario, oppure aggiustare mentalmente il grafico stesso. 

Il grafico risulta anticonvenzionale anche perchè gli assi non devono interse¬ 
carsi necessariamente a zero. L’effettivo punto di intersezione viene stampato 
sopra il grafico stesso. 

Si devono introdurre le funzioni da disegnare come istruzione prioritaria per 
eseguire il programma. Le linee che vanno dal 221 al 229 sono destinate a questo 
scopo. 

Le funzioni devono essere introdotte in modo sequenziale Y(l), Y(2)... Y(9). 
Per esempio volendo tracciare le funzioni: f(x) = 2x + 1 e f(x) = V“x si avrà: 

221 Y(1) = 2 * X + 1 
222 Y(2) = SQR (X) 

La lunghezza dell’asse y è limitata dalla lunghezza del vostro sistema di 
uscita. Il programma compie un test per accertarsi che la lunghezza non sia 
maggiore della lunghezza dello schermo PET (40 spazi). Il test posto nella riga 140 
può essere variato per tener conto di schermi di 80 spazi (schermo CBM). Per 
esempio, per uno schermo di 80 spazi si può prestabilire un grafico di 78 spazi 
variando la riga 140 nel modo seguente: 

140 IF Y2 < = 78 THEN 170 


Esempio: 

Tracciare le funzioni f(x) = cos(x) e f(x) = sin (x). 


22t V<l>=COS(X> 
222 V(2>=SIN(X> 


RAPPRESEMIAZIONE DI FUNZIONI 

NUMERO DI FUNZIONI DA RAPPRESENTARE? 2 _ 

ASSE DELLE X : ESTREMO SINISTRO,ESTREMO DESTRO,UNITA' DI MISURA?-? , 5 , ' 

ASSE DELLE V : ESTREMO INFERI ORE,ESTREMO SUPERI0RE,UNITA' DI MISURA?-* , * , 
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L'ASSE DELLE X INCONTRA L'ASSE DELLE V A V=-2 
L'ASSE DELLE V INCONTRA L'ASSE DELLE X A X=-5 

+++++++++1++2++++V 
+ 1 2 

+ 1 2 

+ 1 2 

+ 1 2 

+ 1 2 

+ 1 2 

+ 1 2 

+ 1 2 

+ 1 2 

+ 12 

+ * 

+ 2 1 

+ 2 1 

+ 2 1 

+ 21 

+ 2 1 

+ 2 1 

+ 2 1 

+ 2 1 

+ 2 1 

+ 2 1 

+ 2 1 
+ * 

+ 12 
+ 1 2 

+ 1 2 

+ 1 2 

+ 1 2 

+ 1 2 

+ 1 2 

+ 1 2 

+ 1 2 

+ 1 2 

+ 1 2 

+ 12 

+ * 

+ 2 1 

+ 2 1 

+ 2 1 

+ 2 1 

X 

READV. 


Listing del programma 

10 PRINT "RAPPRESENTAZIONE DI FUNZIONI" 

20 PRINT 

29 REM - IL NUMERO DI FUNZIONE CHE POSSONO ESSERE RAPPRESENTATE E LIMITATO A 9 

30 DIM V<9>,A*C11> 

40 FOR 1=1 TO 11 

49 REM - PRENDE I VALORI DA INSERIRE NELLA MATRICE A* DALLA FRASE DATA IN 470 

50 READ A*(I> 

60 NEXT I 

63 REM - LE RIGHE DA 70 A 120 RICHIEDONO L'INTRODUZIONE DI DATI DA PARTE 

69 REM - DELL'UTENTE 

70 PRINT "NUMERO DI FUNZIONI DA RAPPRESENTARE"; 

80 INPUT N 

90 PRINT "ASSE DELLE X : ESTREMO SINISTRO-ESTREMO DESTRO,UNITA' DI MISURA"; 

100 INPUT X1..X2.X3 

110 PRINT "ASSE DELLE V : ESTREMO INFERIORE,ESTREMO SUPERIORE,UNITA' DI MISURA"; 
120 INPUT VI,V2,V3 


76 



129 

130 
133 

139 

140 
150 
160 
170 
180 

189 

190 
200 
210 
21S 

219 

220 
221 
230 

239 

240 
250 

259 

260 

269 

270 
280 
288 

289 

290 
300 


REM - CALCOLO IL NUMERO CI SPAZI SULL'ASSE CELLE V 
Y2=<V2-V1.VV3 

REM - VERIFICA CHE L'ASSE DELLE V NON SIA TROPPO LUNGO PER LA PERIFERICA 
REM - SE LO E' DIMINUISCI IL CAMPO 0 AUMENTA L'UNITA' DI MISURA 
TP Y<=70 THEN 170 

PRINT "IL CAMPO DELL'ASSE V E' TROPPO LARGO” 

GOTO 110 

PRINT 

PRINT 

REM - INDICA IL PUNTO IN CUI GLI ASSI SI INCONTRANO 
PRINT "L'ASSE DELLE X INCONTRA L'ASSE DELLE V A V="V1 
PRINT "L'ASSE DELLE V INCONTRA L'ASSE DELLE X A X=";X! 

PRINT 

REM- ASSEGNA GLI INDICI DEL CICLO IN MODO DA LEGGERE I VALORI AD OGNI 
REM - INCREMENTO DELL'ASSE DELLE X 
FOR X=X1 TO X2 STEP X3 

REM - LE FUNZIONI DA V<1> A VO) DEVONO ESSERE INSERITE ALLE RIGHE 221-229 
FOR 1=1 TO N 

REM - STABILISCE IL VALORE ARROTONDATO Dì V PER OGNI INCREMENTO DI X 
V< I >=INT< <V< I >-Vl W3+. 5) 

NEXT I 

REM - CICLO PER LEGGERE I VALORI DI OGNI INCREMENTO DI V 
FOR 1=0 TO V2 

REM - 3 CONTA IL NUMERO DI VALORI AD OGNI INCREMENTO V PER OGNI X 
S=0 

FOR J=1 TO N 

REM - RAPPRESENTA UN PUNTO CUI? SE SI, MEMORIZZA IL NUMERO DELLA FUNZIONE 
REM - IN T 
IF V<JX>I THEN 320 
S=S+1 


310 T=J 
320 NEXT J 

327 REM - VERIFICA IL NUMERO DI PUNTI DA RAPPRESENTARE IH OGNI PUNTO; 

328 REM - SE O STAMPA "+" '.SOLO LA FRI MA LINEAI SE 1 STAMPA IL NUMERO DELLA 

329 REM - FUNZIONE CORRISFONDENTE, SE 2 0 PIU STAMPA 

330 IF S>0 THEN 360 
340 PRINTA*<SGHCI>+10>; 

350 DOTO 400 

360 IF S>1 THEN 390 
370 PRINTA*(T>; 

380 GOTO 400 
390 PRINT"*"; 

400 NEXT I 

409 REM - ETICHETTA GLI ASSI ALL 'ESTRIN!T.A' DI OGNI ASSE 

410 IF X>X1 THEN 430 
420 PRINT "V"; 

429 REM - AVANZA LA STAMPANTE ALLA PROSSIMA LINEA 

430 PRINT 

439 REM - STAMPA SPAZIO INVECE DI DOPO LA PRIMA LINEA DI STAMPA CASSE V? 

440 A*ai)=“ " 

450 NEXT X 
460 PRINT "X" 

470 DATA "1”, “2“, “3", "4", "5", "6", "7", "3", "9”. ”*■” 

480 END 
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INTERPOLAZIONE LINEARE 


Questo programma calcola le coordinate y di punti di una data linea avendo 
le coordinate x. È necessario conoscere le coordinate di due punti che si trovano 
sulla stessa linea. 

Il punto è interpolato usando la seguente formula: 


y = y y + 


Wi-y ,)•(*-*,) 


U 2 - * ,) 


dove: x t , yi = coordinate del primo punto sulla linea 

x 2 , yz = coordinate del secondo punto sulla linea 
x = ascissa del punto che deve essere interpolato 
y = ordinata del punto della linea corrispondente a x. 


Esempio: 

Una tavola di conversione assegna 60 °F a 15,56 °C e 90 °F a 32,22 °C. 
Calcolare i gradi Celsius corrispondenti a 73 °F e 85,6 °F. 

Una nuova tassa di vendita del 17,5% è stata imposta. Quale sarà la tassa su 
un sofà che viene venduto a $ 455,68? 

INTERPOLAZIONE LINEARE 

X.V DEL PRIMO PUNTO? 60 , 15.56 
X.V DEL SECONDO PUNTO? 90 , 32.22 
INTERPOLAZIONE X =? 73 

V = 22.779 

ALTRI PUNTI SU QUESTA LINEA <1=SI, 0=NO>? 1 

INTERPOLAZIONE X =? S5.6 

V = 29.777 

ALTRI PUNTI SU QUESTA LINEA <1=31. 0=NO>? 0 

NUOVA LINEA <1=31. 0=NO>? 1 

X.V DEL PRIMO PUNTO? 0,0 * 

X, V DEL SECONDO PUNTO? 100 , 17.5 
INTERPOLAZIONE X =? 455.63 

V = 73.744 

ALTRI PUNTI SU QUESTA LINEA <1=SI, 0=N0>? 0 
NUOVA LINEA <1=31, 3=N0>? 0 
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Listing del programma 

10 PRINT "INTERPOLAZIONE LINEARE" 

re frint 

20 REM - INSERIRE LE COORDINATE X ED V DI DUE PUNTI APPARTENENTI ALLA LINEA 
30 PRINT ”X,V DEL PRIMO PUNTO"; 

40 INPUT XI/VI 

50 PRINT "X.V DEL SECONDO PUNTO"; 

SO INPUT X2-V2 

60 REM - INSERIRE LA COORDINATA X DEL PUNTO DA INTERPOLARE 
70 PRINT "INTERPOLAZIONE: >; 

SO INPUT X 

30 REM - CALCOLA LA CORRISPONDENTE COORDINATA V 
00 V=Vl+<V2-V1VCX2-X1 >*<X-X1 > 

00 REM - ARROTONDA/ STAMPA 

100 PRINT " V =";INT<V#10O0+.5>/100O 

110 PRINT 

120 PRINT "ALTRI PUNTI SU QUESTA LINEA <1=SI, 0=NO>"; 

130 INPUT Z 
140 PRINT 

ISO IP 2=1 THEN 70 

150 REM - INTERPOLAZIONE DI UN'ALTRA LINEA? 

160 PRINT "NUOVA LINEA <!=SI, 0=NO>"; 

170 INPUT Z 

ISO IF Z=1 THEN 20 

100 END 
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INTERPOLAZIONE CURVILINEA 


Questo programma calcola le coordinate y dei punti di una curva quando 
sono assegnate le coordinate x dei punti stessi. Bisogna introdurre le coordinate di 
punti conosciuti della curva, non si devono introdurre due punti aventi la stessa 
ascissa. 

11 computo è eseguito applicando il metodo di interpolazione Lagrangiano. 
Il numero di punti conosciuti della curva che può essere introdotto nel 
programma è limitato a 50. È possibile variare tale numero variando la linea 30 
come segue: 

30 DIM X(P), Y(P) 

dove: P = numero di punti conosciuti della curva. 


Esempi: 

Consideriamo la curva: y = x 3 - 3x + 3. Conoscendo i punti: (-3, -15), (-2, 1), 
(-1, 5), (0, 3), (1, 1), (2, 5), (3, 21). Quale sarà il valore di y quando x = — 1,65 e 
quando x = 0,2? 

Dati i seguenti punti della curva del seno, quali saranno il sene di -2,47 e 
quello di 1,5? 


(- 5 ,- 958 ) ( 0 , 0 ) 

(- 4 ,. 757 ) ( 1 .. 841 ) 

(- 3 ,-. 141 ) ( 2 .. 909 ) 

(- 2 ,-. 909 ) ( 3 ,. 141 ) 

(- 1 .- 841 ) ( 4 ,-. 757 ) 

( 5 ,-. 959 ) 


INTERPOLAZIONE CURVILINEA 

NUMERO DI PUNTI NOTI? 7 
X,Y DEL PLINTO 1 ?-3 ,-15 
X,Y DEL PUNTO 2 ?-2 , 1 
X,Y DEL PUNTO 3 ?-l , 5 
X,Y DEL PUNTO 4 ? 0 , 3 

X,Y DEL PUNTO 5 ? 1 , 1 

X,V DEL PUNTO 6 ? 2 , 5 

X,V DEL PUNTO 7 ? 3 , 21 

INTERPOLAZIONE : X=?-l.65 

V= 3.457S75 

ALTRE COORDINATE X SU QUESTA CURVA <1=SI, 0=NO>? 1 

INTERPOLAZIONE: X=? .2 

V= 2.408 

ALTRE COORDINATE X SU QUESTA CURVA <1=SI, 0=NO>? 0 
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ALTRE COORDINATE X SU DI UN'ALTRA CURVA <1=SI, 0=NO? 1 
NUMERO DI PUNTI NOTI? 11 


x,v 

DEL 

PUNTO 

1 

?-5 , 

.958 

x,v 

DEL 

PUNTO 

2 

?-4 , 

.757 

X, V 

DEL 

PUNTO 

3 

?-3 , 

-.141 

X. V 

DEL 

PUNTO 

4 

?-2 , 

-.909 

X, V 

DEL 

PUNTO 

5 

?-l , 

-.341 

x,v 

DEL 

PUNTO 

6 

? 0 , 

0 

X. V 

DEL 

PUNTO 

7 

? 1 , 

.841 

x,v 

DEL 

PUNTO 

8 

r> 2 , 

.909 

X, V 

DEL 

PUNTO 

9 

? 3 , 

. 141 

X,Y 

DEL 

PUNTO 

10 ? 4 

,-.757 

X,Y 

DEL 

PUNTO 

11 

? 5 

,-.959 


INTERPOLAZIONE : X=?-2.47 

V=-.621839596 


ALTRE COORDINATE X SU QUESTA CURVA <1=SI, 0=NO>? 1 

INTERPOLAZIONE: X=? 1.5 

V= .9971638 

ALTRE COORDINATE X SU QUESTA CURVA <1=SI. 0=NO>? 0 

ALTRE COORDINATE X SU DI UN'ALTRA CURVA <1=SI, 0=NO? 0 


Listing del programma 

10 PRINT "INTERPOLAZIONE CURVILINEA" 

20 PRINT 

28 REM - LIMITARE XO ED VO IN BASE AL NUMERO MASSIMO DI PUNTI NOTI SU DI 

29 REM - OGNI CURVA DA INSERIRE 

30 DIM X(50>,V<50> 

40 PRINT "NUMERO DI PUNTI NOTI"; 

50 INPUT P 
60 FOR 1=1 TO P 

69 REM - INSERIRE LE COORDINATE DEI PUNTI NOTI SULLA CURVA 

70 PRINT "X,V DEL PUNTO";I; 

30 INPUT X(D,V(D 

90 NEXT I 
100 PRINT 

109 REM - INSERIRE LA COORDINATA X DEL PUNTO DA INTERPOLARE 

110 PRINT "INTERPOLAZIONE: X="; 

120 INPUT A 

130 B=0 

138 REM - CALCOLA LA CORRISPONDENTE COORDINATA V COL METODO LAGRANGIANO DI 

139 REM - INTERPOLAZIONE 

140 FOR J=1 TO P 
150 T=1 

160 FOR 1=1 TO P 

170 IF I=J THEN 190 

130 T=T*<A-X<I>V<X<J)-X(I)> 

190 NEXT I 
200 B=B+T*V<J> 

210 NEXT J 

219 REM - STAMPA I RISULTATI 

220 PRINT " V=";B 

230 PRINT 

239 REM - DEVI INTERPOLARE ALTRI PUNTI SULLA STESSA CURVA? 

24© PRINT "ALTRE COORDINATE X SU QUESTA CURVA <1=SI, 0=NO)"; 

250 INPUT C 

260 IF C=1 THEN 100 

269 REM - IL PROGRAMMA RIPARTE 0 TERMINA? 

270 PRINT "ALTRE COORDINATE X SU DI UN'ALTRA CURVA d=SI, 0=NO“; 

280 INPUT C 

290 IF C=1 THEN 40 
300 END 
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INTEGRAZIONE: REGOLA DI SIMPSON 


Questo programma approssimp l’integrale definito di una funzione. L’inte¬ 
grale è calcolato usando la regola di Simpson. 

Il metodo che il programma usa è opzionale; si può introdurre la funzione 
della curva oppure il valore della funzione in uno specifico intervallo. Per entram¬ 
bi i metodi vanno introdotti i limiti di integrazione e l’incremento fra i punti 
contenuti nei limiti. 

Se la funzione che deve essere integrata è conosciuta, essa va introdotta, 
prima di eseguire il programma. La funzione sarà definita alla linea 50. Per 
esempio, la funzione f(x) = x 3 verrà introdotta come segue: 

50 DEFFNC (X) = x t 3 

Esempi: 

Trovare l’integrale definito della funzione f(x) = x 3 fra 0 e 2 con incrementi di 
0,2 e 0,1. 

Quale è l’integrale di una curva i cui punti conosciuti sono riportati in seguito 
se i limiti di integrazione sono - lei? 

(-L.54) (.25,.969) 

(-.75,.73) (.5,.878) 

(-.5,878) (.75,.73) 

(-.25,.969) (1..54) 

( 0 , 1 ) 

50 DEFFNC(X > =X T3 
READY. 

INTEGRAZIONE: REGOLA DI SIMPSON 

SELEZIONE: 1“FORMULA NOTA, ©«FORMULA SCONOSCIUTA? 1 
LIMITE INFERIORE. SUPERIORE DI INTEGRAZIONE? 0 , 2 
UNITA' DI MISURA DI X? .2 
L'INTEGRALE E' 4 

READY. 

INTEGRAZIONE : REGOLA DI SIMPSON 

SELEZIONE: 1«FORMULA NOTA, 0=FORMULA SCONOSCIUTA? 1 
-IMITE INFERIORE, SUPERIORE DI INTEGRAZIONE? 0 , 2 
UNITA' DI MISURA DI X? . 1 
.'INTEGRALE E' 4 

READY. 

INTEGRAZIONE: REGOLA DI SIMPSON 

SELEZIONE: 1«FORMULA NOTA, 0=FORMULA SCONOSCIUTA? 0 
LIMITE INFERIORE, SUPERIORE DI INTEGRAZI0NE?-1 , 1 
UNITA' DI MISURA DI X? .25 
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VALORE 

INIZIALE, FINALE DI F<X>? .54 , 

.54 


VALORE 

DI 

F<X> 

ALL'INTERVALLO 

1 

<X=-.75 

>? 

.73 

VALORE 

DI 

F(X> 

ALL'INTERVALLO 

2 

<X=-.5 

>? . 

878 

'VALORE 

DI 

F<X> 

ALL'INTERVALLO 

3 

<X=-.25 

)? 

.969 

VALORE 

DI 

F<X> 

ALL'INTERVALLO 

4 

<X= 0 > 

? 1 


VALORE 

DI 

FCX) 

ALL'INTERVALLO 

5 

<X= .25 

>? 

.969 

VALORE 

DI 

F<X> 

ALL'INTERVALLO 

6 

<X= .5 

)? . 

,878 

VALORE 

DI 

F<X> 

ALL'INTERVALLO 

7 

<X= .75 

)? 

.73 

L'INTEGRALE E' 

1.682 






Llsting del programma 

10 PRINT"INTEGRAZIONE: REGOLA DI SIMPSON" 

20 PRINT 

30 PRINT "SELEZIONE: 1=F0RMULA NOTA, 0=FORMULA SCONOSCIUTA"; 

40 TNPUT S 

49 REM - SE LA FUNZIONE E' NOTA INSERIRE ALLA RIGA 50 <DEFFNC(X>="FUNZIONE"> 

50 D£FFNC<X>=Xt3 

60 PRINT "LIMITE INFERIORE, SUPERIORE DI INTEGRAZIONE"; 

70 INPUT A,B 

80 PRINT "UNITA' DI MISURA DI X"; 

90 INPUT XI 

98 REM - L'UNITA' DI MISURA DEVE DIVIDERE L'INTERVALLO IN SOTTOINTERVALLI 

99 REM - UGUALI ALTRIMENTI, CAMBIA UNITA' DI MISURA 

100 T=<B-A)/X1U=INT<T) IF TOU THEN 80 
110 IF S=1 THEN 150 

118 REM - FORMULA SCONOSCIUTA; INSERIRE IL VALORE DELLA FUNZIONE AI LIMITI DI 

119 REM - INTEGRAZIONE 

120 PRINT "VALORE INIZIALE, FINALE DI F(X)"; 

130 INPUT VI,Y2 

140 GOTO 170 

149 REM - FORMULA NOTA; CALCOLA F<X) AI LIMITI DI INTEGRAZIONE 

150 V1=FNC<A> 

160 V2=FNC(B> 

170 C=0 

180 D=0 

189 REM - CICLO PER OGNI SOTTOINTERVALLO 

190 FOR 1=1 TO <B-A>/Xl-.5 
200 IF S=1 THEN 240 

209 REM - INSERIRE LA FUNZIONE NOTA AD OGNI INTERVALLO 

210 PRINT "VALORE DI F<X> ALL'INTERVALLO",I,"<X=";A+I*X1;">"; 

220 INPUT V 

230 GOTO 250 

239 REM - CALCOLA F<X> AD OGNI SOTTO INTERVALLO 

240 V=FNC<A+I*X1> 

249 REM - INTERVALLI PARI 0 DISPARI 

250 IF I=INT<I/2)*2 THEN 280 

259 REM - SOMMA TUTTI I VALORI DELLA FUNZIONE DEGLI INTERVALLI DISPARI 

260 C=C+V 
270 GOTO 290 

279 REM - SOMMA TUTTI I VALORI DELLA FUNZIONE DEGLI INTERVALLI PARI 

280 D=D+Y 
290 NEXT I 

299 REM - CALCOLA L'INTEGRALE, STAMPA 

300 PRINT "L'INTEGRALE E'",X1/3*<Y1+4*C+2*D+V2> 

310 END 
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INTEGRAZIONE: REGOLA TRAPEZOIDALE 


Questo programma approssima l’integrale definito di una funzione. L’inte¬ 
grale è calcolato usando la regola trapezoidale. Si devono fornire i limiti di 
integrazione e il numero di intervalli dentro i limiti. 

La funzione da integrare va introdotta prima di eseguire il programma. La 
funzione di x va definita nella linea 30. Per esempio, la funzione f(x) = x 3 verrà 
introdotta come segue: 

30 DEFFNC (X) = X t 3 


Esempi: 

Trovare l’integrale definito di f(x) = x 3 tra 0 e 2 usando 10 e 20 intervalli. 
Trovare l’integrale definito della funzione f(x) = x“ 2 tra 1 e 2, e tra 2 e 3 
usando 10 sottointervalli. 


30 DEFFNC(X)=Xt3 

INTEGRAZIONE : REGOLA TRAPEZOIDALE 
(INSERIRE 0,0 PER TERMINARE) 

LIMITI DI INTEGRAZIONE (INFERIORE, SUPERIORE)? 0 , 2 
NUMERO DI INTERVALLI? 10 
INTEGRALE = 2.44000001 

LIMITI DI INTEGRAZIONE (INFERIORE, SUPERIORE)? 0 , 2 
NUMERO DI INTERVALLI? 20 
INTEGRALE = 3.21000001 

LIMITI DI INTEGRAZIONE (INFERIORE, SUPERIORE)? 0 , 0 


30 DEFFNC(X)=l/Xf2 


INTEGRAZIONE : REGOLA TRAPEZOIDALE 
(INSERIRE 0,0 PER TERMINARE) 

-IMITI DI INTEGRAZIONE (INFERIORE, SUPERIORE)? 1 , 2 
NUMERO DI INTERVALLI? 10 
INTEGRALE = .47645512? 

LIMITI DI INTEGRAZIONE (INFERIORE, SUPERIORE)? 2 , 3 
NUMERO DI INTERVALLI? 10 
INTEGRALE = .166313181 

LIMITI DI INTEGRAZIONE (INFERIORE, SUPERIORE)? 0 , 0 
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Listlng del programma 

10 PRINT"INTEGRAZIONE■ REGOLA TRAPEZOIDALE" 

20 PRIMT 

30 DEFFNC(X) = 1/;<T2 REM - INSERIRE QUI LA FUNZIONE DESIDERATA 
40 FRINT "<INSERIRE 0,0 PER TERMINARE)" 

50 PRINT "LIMITI DI INTEGRAZIONE (INFERIORE, SUPERIORE)"; 

60 INPUT A,B 

59 REM - FINE PROGRAMMA 

78 IF A=E THEN ISO ^ 

30 PRINT "NUMERO DI INTERVALLI"; 

30 INPUT N 
100 1=0 

103 REM - B E / LA GRANDEZZA DI OGNI INTERVALLO 
110 D=(B-A)/H 

119 REM - SOMMA L'AREA DI OGNI TRAPEZIO 

120 POR J=A TO B STEP D 
130 I=I+FNC(J) 

140 NEXT J 

149 REM - CALCOLA L'INTEGRALE 

150 I=a-(FNC(A)+FNC(B))/2)*D 
160 PRINT "INTEGRALE =";I 

170 PRINT 
130 GOTO 50 
190 END 
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INTEGRAZIONE: QUADRATURA GAUSSIANA 


Questo programma approssima l’integrale definito di una funzione. Si devo¬ 
no fornire i limiti di integrazione e il numero di intervalli tra questi limiti. 

L’intervallo di integrazione è diviso in uguali sottointervalli. L’integrale 
definito è computato su ogni sottointervallo usando la formula di Gauss. Gli 
integrali dei sottointervalli sono sommati per fornire l’integrale definito di pieno 
intervallo. 

La funzione da integrare va introdotta prima di eseguire il programma. La 
funzione di x viene definita nella linea 30. Per esempio, la funzione f(x) = x 3 va 
introdotta come segue: 

30 DEFFNC (X) = X t 3 


Esempi: 

Trovare l’integrale definito della funzione f(x) = x 3 fra 0 e 2 usando 10 e 20 
sottointervalli. 

Trovare l’integrale definito della funzione f(x) = x~ 2 tra 1 e 2, e tra 2 e 3 
usando 10 sottointervalli. 


36 DEFFNC CO=:;t3 


READY. 


INTEGRAZIONE QUADRATURA GAUSSIANA 

LIMITI DI INTEGRAZIONE (INFERIORI:, SUPERIORE)? 0 , 2 
NUMERO DI INTERVALLI? 10 
INTEGRALE = 4.00000004 

CAMBI DATI 0 RICALCOLI? 

<0=NO,1“NUOVI LIMITI DI INTEGRAZI0NE,2=NU0V0 NUMERO DI INTERVALLI)? 2 
NUMERO DI INTERVALLI? 20 
INTEGRALE = 4.00000804 

CAMBI DATI 0 RICALCOLI? 

:0=NO,1=NU0VI LIMITI DI INTEGRAZI0NE,2=NU0V0 NUMERO DI INTERVALLI)? 0 


30 DEFFNC CO=1/XT2 


READY. 


INTEGRAZIONE: QUADRATURA GAUSSIANA 

LIMITI DI INTEGRAZIONE (INFERIORE, SUPERIORE)? 1 , 2 
NUMERO DI INTERVALLI? 10 
INTEGRALE = .500000002 


CAMBI DATI 0 RICALCOLI? 

'Q=N0,1=NU0VI LIMITI DI INTEGRAZIONE,2=NU0V0 NUMERO DI INTERVALLI)? 1 
LIMITI DI INTEGRAZIONE (INFERIORE, SUPERIORE)? 2 , 3 
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•(LIMERÒ PI INTERVALLI? 10 
INTEGRALE = .166566668 


-AMPI PATI 0 RICALCOLI? 

0=NO, 1 “NUOVI LIMITI PI INTEGRAZIONE,2=NU0V0 NUMERO PI INTERVALLO? 0 


Listing del programma 

10 PRINT"INTEGRAZIONE QUAPRATURA GAUSSIANA" 

Z0 PRINT 

70 SEFFNC •::<>= 1/X*2 

73 REM - ASCISSE E FATTORI PI PESO PER INTEGRAZIONE GAUSSIANA A 20 PUNTI 

40 PATA .376526521,.15275339,.22778585,.14917299,.37370609 

50 PATA .14209611,.510867,.13168864,.63605368,.11319453 

63 PATA .74633191,.10193012,.33911697,.083276742,.91223443 

70 PATA .362672048,.96397193,.04063143,.9931286,.317614307 

30 PRINT "LIMITI PI INTEGRAZIONE <INFERIORE, SUPERIORE)"; 

90 INPUT X,V 

100 PRINT "NUMERO PI INTERVALLI", 

113 INPUT N 
120 3=;V-N).'N/2 
; >3 T=X+S 
140 P=3 

149 -'£M - CALCOLA L'INTEGRALE PER CIASCUN SOTTO INTERVALLI! 

150 POR 1=1 TO H 
ISO P=3 

169 REM - CALCOLA IL FATTORE PI SOMMA PER OGNI SOTTOINTERVALLO 

170 POR .1=1 TO 10 
ISO REAP A,B 

190 P=P+B* <FNC <S#A+T> +FNC< T-S#A)) 

230 NEMT J 
210 RESTOPE 
?20 R=R+P$3 
230 T=T+2*3 
243 NEXT I 

250 PRINT "INTEGRALE =";R 
260 PRINT 

270 PRINT "CAMBI PATI 0 RICALCOLI?" 

230 PRINT "<0=NO,1“NUOVI LIMITI PI INTEGRAZIONE,2=NU0V0 NUMERO PI INTERVALLI)" 

290 INPUT S 

333 IP S=1 THEN 33 

313 IF 8=2 THEN 100 

220 END 
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DERIVATA 


Questo programma calcola la derivata di una data funzione in un punto 
specifico. La funzione va introdotta prima di eseguire il programma. La funzione 
va introdotta nella linea 30. Per esempio, per valutare la funzione f(x) = x 2 + 
cos(x) essa va introdotta nel seguente modo: 

30 DEFFNC (X) = X t 2 + COS (X) 


Esempio: 

Calcolare la derivata dell’equazione x 2 + cos(x) = 0 quando x = —1, x = 0, x 

= 1 . 


30 DEFFNC<X)=X12+C0S(X> 


DERIVATO 

<INTRODURRE X=99999 PER TERMINARE IL PROGRAMMA) 
DERIVATA A X =?-l 

£'-1.15852081 

DERIVATA A X =? 0 

E' 2.43075192E-07 

DERIVATA A X =? 1 

E' 1.15852833 
DERIVATA A X =? 99999 


Listing del programma 

10 PRINT "DERIVATA" 

20 PRINT 

30 DEFFNC(X)=XT2+C0S(X> 

40 PRINT “(INTRODURRE X=99999 PER TERMINARE IL PROGRAMMA)" 
50 PRINT "DERIVATO A X *="J 
60 INPUT XI 

69 REM - TEST PER TERMINARE IL PROGRAMMA 

70 IF XI =99999 THEN 160 
80 D=0 

39 REM - CALCOLA I DIFFERENTI QUOZIENTI PER PUNTI VICINI 

90 FOR N=1 TO 10 

100 D1=D 

110 X=X1+.5TN 

120 D=(FNC<X)-FNC<X1)V<X-X1> 

130 NEXT N 

139 REM -APPROSSIMA LO DERIVATA DELLA FUNZIONE A X, STAMPA 

140 PRINT * E'“;2*D-D1 

149 REM -IL PROGRAMMA RIPARTE 

150 GOTO50 
160 END 
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RADICI DI EQUAZIONI QUADRATICHE 


Questo programma calcola le radici di una equazione quadratica. L’equazio¬ 
ne deve essere nella seguente forma: 

ax 2 + bx + c = 0 

dove a, b, c sono i coefficienti reali. 

La formula usata per calcolare le radici è: 



radice 


Esempio: 

Calcolare le radici delle seguenti equazioni: 


2 x 2 + x-1 = 0 
x 2 + 4x + 6 = 0 


RODICI DI EQUAZIONI QUADRATICHE 

COEFFI CENT I A,. B, C? 2 , 1 ,-l 
RADICI (REALI) : -1 , .5 

ALTRI DATI <1=SI, 0=NO>? 1 

COEFFICENTI A. B C? 1 , 4 , 6 

RADICI (COMPLESSE): -2 + 0 - 1.41421356 I 

ALTRI DATI (1=SI, 0=NO)? 0 


Listing del programma 

10 PRIHT "RADICI DI EQUAZIONI QUADRATICHE" 

20 PRINT 

29 REM - INTRODUCI I COEFFICENTI 

30 PRINT "COEFFICENTI A. B- C"; 

40 INPUT A,B,C 

50 S=Bt2-4*A*C 
60 R=3QR(ABS(S)) 

69 REM -RADICI COMPLESSE 

70 IF SCO THEN 100 

80 PRINT "RADICI (REALI)’ "; (-B-R)/(2*A); ", <-B+RV(2*A) 

90 GOTO110 

100 PRINT "RADICI (COMPLESSE): »;-B/<2*A);" + 0 -“;R/<2#A>;" I" 
110 PRINT 

119 REM - IL PROGRAMMA RIPARTE 0 TERMINA 

120 PRINT "ALTRI DATI <1=SI, 0=NO>“; 

130 INPUT X 

140 IF X=1 THEN 20 
150 END 
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RADICI REALI DI UN POLINOMIO: NEWTON 


Questo programma calcola le radici reali di un polinomio con coefficienti 
reali- Si deve fornire una stima di ogni radice. 

I calcoli vengono effettuati utilizzando il metodo di Newton per approssima¬ 
re le radici dell’equazione. Il valore dell’errore e della derivata sono incluse per 
ogni radice calcolata. 

Le equazioni che possono essere introdotte devono avere come grado massi¬ 
mo 10. Tale numero può essere variato cambiando le linee 30 e 40 in accordo con il 
seguente schema: 

30 DIM A (N + 1), B(N +1) 

40 FOR I = 1 TO N + 1 

dove: N = grado dell’equazione. 


Esempio: 

Trovare le radici di 4 x 4 -2,5 x 2 -x +0,5. 


RADICI REALI DI UN POLINOMIO: NEWTON 

GRADO DELL'EQUAZIONE? 4 
COEFFICIENTE A< 0 )? .5 
COEFFICIENTE A< 1 >?-l 
COEFFICIENTE A< 2 >?-2.5 
COEFFICIENTE A( 3 >? 0 
COEFFICIENTE A< 4 >? 4 


IPOTESI?-.3 

RADICE ERRORE DERIVATA 

.30357634 -2.31033305E-11 -2.070247 


UN ALTRO VALORE <1=SI, 0=NO>? 0 
UN'ALTRA FUNZIONE <1=SI, 0=NO>? 3 


Listing del programma 

13 PRINT "RADICI REALI DI UN POLINOMIO' NEWTON" 

20 PRINT * „ „ 

7*3 REM - LIMITARE AO E BO A N+l; QUANDO CIO' E' FATTO. CICLO ALLA LINEA 40 

29 REM - DEVE ESSERE INDICIZZATO PER ANALISI DA 1 A N+l 

30 DIM A<ll>,B<i:> 

43 FOR : — 1 T0 :1 
58 A<I>=0 

60 B'I>=0 
73 NEXT I 

30 PRINT "GRADO DELL'EQUAZIONE"; 

?0 INPUT N 

!O0 FOR 1=1 T0 N+l 

igei r-eh _ INSERIRE I COEFFICIENTI ORDINATAMENTE DAL GRADO INFERIORE AL SUPERIORE 
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PRINT "COEFFICIENTE A<";1-1; 

INPUT A<I> 

NEXT I 

FOR 1 = 1 TO 10 

REM - CALCOLATE I COEFFICIENTI DELIBA DERIVATA DEL POLINOMIO 
£<I>=A<I+1>#I 
NEXT I 
PRINT 

REM - INIZIALIZZA L'IPOTESI 
PRINT "IPOTESI"; 

INPUT X 
0=0 
S=1 
F1=0 
F0=0 

REM - CONTA LE ITERAZIONI 
Q=Q+1 

FOR 1=1 TO N+l 

REM - CALCOLA IL VALORE DELLA FUNZIONE 
FO=F0+A<I>*S 

REM - CALCOLA IL VALORE DELLA DERIVATA 
F1=F1+B(I)*S 
3=S*X 
NEXT I 

REM - TEST PER DERIVATA ZERO; SE SI, INTERROMPI LA RICERCA, STAMPA 
REM - OTTIENI UNA NUOVA IPOTESI USANDO L'IPOTESI PRECEDENTE 
S=X-F0/F1 

REM - SE LA NUOVA IPOTESSVECCHIA IPOTESI ALLORA INTERROMPI LA RICERCA, 
REM - STAMPA 
IF X=3 THEN 330 

REM - MEMORIZZA L'ULTIMA IPOTESI 

/{ = S 

IF GD10Q THEN 490 
GOTO 210 

PRINT "DERIVATA = 0 A X =";X 
GOTO 180 
PRINT 

PRINT “ RADICE ERRORE DERIVATA” 

PRINT X,F0,F1 
PRINT 

REM - RICICLA PER OTTENERE UN'ALTRA RADICE NELLA STESSA FUNZIONE? 

PRINT "UN ALTRO VALORE <1=SI, 0=NO>"; 

INPUT A 

IF A=1 THEN 170 

REM - IL PROGRAMMA TERMINA 0 RIPARTE? 

PRINT "UN'ALTRA FUNZIONE <1=SI, 0=NO>”; 

INPUT A 

IF A=1 THEN 30 
GOTO 550 

REM - STAMPA IL VALORE CALCOLATO DOPO 100 ITERAZIONI; ALTRE 100? 

PRINT "100 ITERAZIONI COMPLETATE : “ 

PRINT “ X =“,'X;“ F(X> =";F0 
PRINT " CONTINUA <1=SI, 0=NO>"; 

INPUT A 

IF A=1 THEN 200 
540 GOTO 420 
550 END 
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RADICI DI POLINOMI: RICERCA A MEZZO 

INTERVALLO 


Questo programma calcola radici di polinomi dentro un dato intervallo. Il 
programma esegue per prima cosa una ricerca casuale dentro un dato intervallo 
per trovare due punti di segno opposto. Se si trova un cambio di segno, la radice 
viene calcolata con il metodo della ricerca a mezzo intervallo. Se non si trova un 
cambio di segno viene richiesto un altro intervallo. 

In questo, programma possono aversi degli errori per una serie di cause. 
Primo, una radice può essere calcolata anche quando essa non esiste. Ciò può 
verificarsi quando il punto più basso è così vicino a zero che la radice viene 
calcolata come errore di arrotondamento. Secondo, due radici possono trovarsi 
così vicine che il programma non trova un cambio di segno fra di esse. In tal caso 
nessuna radice viene calcolata. 

È necessario introdurre l’equazione prima di eseguire il programma. L’equa¬ 
zione sarà definita come una funzione di x alla linea 30. Per esempio, se si vogliono 
trovare le radici della funzione f(x) =4 x 4 -2,5 x 2 -x + 0,5 essa andrà introdotta nel 
modo seguente: 

30 DEFFNC (X) = 4 • X 14 - 2,5 • X 1 2 - X + 0,5 


Esempio: 

Trovare una radice della funzione: f (x) = 4 x 4 - 2,5 x 2 - x + 0,5. 


30 DEFFNR<X>=4#Xt4-2.5#XT2-X+.5 


RflDICI DI UN POLINOMIO: RICERCA fi MEZZI INTERVALLI 

(.PER INTERROMPERE LA RICERCA INSERIRE 0,0) 
INTERVALLO (LIMITE INFERIORE, SUPERIORE>?-l , 0 
NESSUN CAMBIAMENTO DI SEGNO RILEVATO 
INTERVALLO (LIMITE INFERIORE, SUPERIORE)? 0 , 1 
RADICE = .303575526 

INTERVALLO <LIMITE INFERIORE, SUPERIORE)? 0 , 0 


Listing del programma 

10 PRINT "RADICI DI UN POLINOMIO: RICERCA A MEZZI INTERVALLI" 
20 PRINT 

30 DEFFNR(X)=4*Xt4-2.5#XT2-X+.5 
40 DIM D<3) 

50 PRINT "(PER INTERROMPERE LA RICERCA INSERIRE 0,0)" 

59 REM - STABILISCI GLI INTERVALLI DI RICERCA CASUALE 
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60 PRINT "INTERVALLO (LIMITE INFERIORE, SUPERIORE 
70 INPUT A,E 

79 REM - TEST PER UTILIZZABILITÀ" BEI LIMITI INSERITI 
S0 IF AOB THEN 120 
39 REM - FINE PROGRAMMA? 

90 IF A=0 THEN 430 

100 PRINT I LIMITI DELL'INTERVALLO NON POSSONO ESSERE UGUALI--" 

110 GOTO 60 

120 IF A<B THEN 150 

130 PRINT *— IL LIMITE INFERIORE VA INSERITO PER PRIMO—" 

140 GOTO 60 

150 ai=sgn<fnr<a>> 

160 B1=SGN<FNR<B>> 

169 REM - TEST PER RADICI AD ENTRAMBI I LIMITI 

170 IF A1*B1=0 THEN 360 

179 REM - TEST PER SEGNI OPPOSTI AI LIMITI DELL'INTERVALLO 
1S0 IF A1*B1<0 THEN 2S0 

189 REM - CICLO DI RICERCA DI 1000 NUMERI PER SEGNI OPPOSTI NELLA FUNZIONE 

190 FOR 1=1 TO 1000 
200 X=A+RND(2)*<B-A> 

210 X1=SGN(FNR<X>) 

213 REM - TEST PER RADICE AL NUMERO CASUALE; SE SI, INTERROMPI LA RICERCA, 

219 REM - STAMPA 

220 IF XI=0 THEN 400 

229 REM - TEST PER SEGNI OPPOSTI AL NUMERO CASUALE ED AL LIMITE INFERIORE 

230 IF R1*X1<0 THEN 270 

239 REM - PROVA UN ALTRO NUMERO CASUALE 

240 NEXT I 

250 PRINT "NESSUN CAMBIAMENTO DI SEGNO RILEVATO" 

260 GOTO 60 

269 REM - CAMBIAMENTO DI SEGNO TROVATO; CALCOLA LA RADICE 

270 B=X 

278 REM - MEMORIZZA IL PUNTO POSITIVO IN D<3>, PUNTO NEGATIVO IN DO) 

279 REM - D(l) E D<3> DIVENGONO LIMITI DELL'INTERVALLO 

280 D<2+A1)=A 
290 D<2-A1)=B 

299 REM - CALCOLA IL PUNTO MEDIO TRA I DUE LIMITI 

300 V=<DO)+D<3>>/2 
310 Y1=SGN<FNR(Y>> 

319 REM - TEST PER RADICE AL PUNTO INTERMEDIO 

320 IF V1=0 THEN 400 

329 REM - RICERCA UN NUOVO LIMITE PER AVVICINARTI ALLA RADICE 

330 D<2+V1)=Y 

338 REM - TEST PER UN VALORE SUFFICIENTEMENTE VICINO A ZERO PER ASSUMERE UNA 

339 REM RADICE 

340 IF ABS<DO)-D<3))/ABS<D<l)+ABS(D<3)>)<5E-6 THEN 400 

349 REM - RIPROVA CON NUOVI LIMITI 

350 GOTO 300 

359 REM - RADICE AD UN LIMITE DELL'INTERVALLO, TROVA QUALE LIMITE, STAMPA 

360 IF A1=0 THEN 390 
370 V=81 

380 GOTO 400 
390 Y=A1 

400 PRINT "RADICE =“;V 
410 PRINT 

419 REM - IL PROGRAMMA RIPARTE 

420 GOTO 60 
430 END 
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POLINOMIO TRIGONOMETRICO 


Questo programma risolve una funzione trigonometrica per un dato angolo. 
La funzione deve essere nella seguente forma: 

f (x ) = A , sin (x ) + B , cos (x ) + A 2 sin (2x ) + 

B 2 sin (2x )... + A n sin (n *x ) + B n cos (n *x ) 

dove: n — numero di coppie di coefficienti. 

I coefficienti della funzione devono essere introdotti nello stato dati 30. Lo 
stato dati dovrà includere il numero di coppie di coefficienti (n) e i coefficienti del 
polinomio. Essi vanno introdotti come segue: 

30 DATA n, A,, B,, A 2 , B 2 ... A„, B„ 


Esempio: 

Risolvere la seguente equazione per gli angoli 45°, 90° e 105°: 

- f( x )=sin( x ) + 2 *cos( x )-2 *sin(2x ) + cos(2x ) + 5 *sin(3x )-3 »cos(3x ) 

30 DATA3.1,2,-2,l,5,-3 


POLINOMIO TRIGONOMETRICO 

COEFFICENTI ALLA LINEA 30! 

UNSERISCI ANGOLO 39999 PER TERMINARE! 

ANGOLO? 45 

PC 45 >= 3.09553755 


ANGOLO? 90 

F( 90 >=-2.83168119 


ANGOLO? 105 

F< 105 >=-1.54684808 

ANGOLO? 99999 


Listing del programma 

10 PRINT'TFOLINOMIO TRIGONOMETRICO" 

20 PRINT 

23 REM-INTRODUCI IL NUMERO DI PAIA DI TERMINI E I COEFFICENTI 

29 REM-CON L ISTRUZIONE DATA 

30 DATA3,1.2.-2.1,5,-3 

31 PRINT"COEFFICENTI ALLA LINEA 30!" PRINT 

40 PRINT"(INSERISCI ANGOLO 99999 PER TERMINARE)" PRINT 
50 PRINT"ANGOLO"! 

60 INPUT R 
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69 REM-FINE PROGRAMMA? 

70 IF R=99999 THEH 130 

79 REM-PRENDI It NUMERO DI PAIA DI TERMINI NEL POLINOMIO 
30 READ N 

89 REM-RIPETI PER PRENDERE I VALORI DEI COEFFICENTI DALLA TABELLA DEI DA 

90 FOR 1=1 TO N 
100 READA,B 

109 REM-CALCOLA IL VALORE DELLA FUNZIONE PEF: ANGOLO !i 

110 Z=Z+A*SIN(I*R;+B*COSa*R> 

120 NEXTI 

129 REM-STAMPA I RISULTATI 

130 print”F<";r;")=";Z 

139 REM-PREPARATI A RILEGGERE I COEFFICENTI DELLA FUNZIONE 

140 RESTORE 
150 FRINT 
160 2=0 

169 REM-IL PROGRAMMA RIPARTE 
178 GOTO50 
130 END 


96 



SISTEMI DI EQUAZIONE 

Il programma risolve un sistema di equazioni lineari. Il numero di coefficienti 
incogniti in ogni equazione deve essere uguale al numero di equazioni da risolvere. 
È necessario inserire i coefficienti di ogni equazione. 

La dimensione dello statement alla linea 30 limita il numero delle equazioni 
che possono essere risolte. È possibile cambiare questo limite mediante il seguente 
schema: 

30 DIM A(R, R + 1) 

in cui R è il massimo numero di equazioni. 


Esempio: 

Risolvere il seguente sistema di equazioni: 


x + 2x + 3x =4 
3 x + 6 x = 1 
-3x + 4x-2x=0 


38 DIMAC3. 4> 


SISTEMI JJI EQUAZIONE 

NUMERO DELLE EQUAZIONI? 3 
MATRICE DEI COEFFICIENTI- 

EQUAZIONE I 

COEFFICIENTE 1 ? 1 
COEFFICIENTE 2 ? 2 
COEFFICIENTE 3 ? 3 
COSTANTE? 4 

EQUAZIONE 2 

COEFFICIENTE 1 ? 3 
COEFFICIENTE 2 ? 6 
COEFFICIENTE 3 ? 8 
COSTANTE? 1 

EQUAZIONE 3 

COEFFICIENTE 1 ?-3 
COEFFICIENTE 2 ? 4 
COEFFICIENTE 3 ?-2 
COSTANTE? 8 


X 1 =-.356 
X 2 = .344 
x 3 = 1.222 
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Listing del programma 

i 0 PF.'I NT "SISTEMI DI EQUAZIONE" 

20 PRINT 

29 REM-LIMITA PO ACR+l ) CON F,-MASSIMO NUMERO DI EQUAZIONI 

30 DIMA<3,4) 

40 PRINT"NUMERO DELLE EQUAZIONI"; 

50 INPUT R 

60 FRINT"MATRICE DEI COEFFICIENTI:" 

70 FORJ=1TOR 
30 PRINT 

35 PRINT"EQUAZIONE";J 

30 FORI=lTOR+l 

100 IF I=R+1THEN130 

110 PRINT" COEFFICIENTE";!; 

120 GOTO140 

130 PRINT"COSTANTE"; 

140 INPUT A<J,I) 

150 NEXTI 
160 NEXTJ 
170 FGRJ=1T0R 

178 REM-LE ISTRUZIONI DAL 180 AL 220 TROVANO LA PRIMA EQUAZIONE 

179 REM-CON CCEFFICENTI DIVERSI DA 0 NELLA COLONNA CORRENTE 

180 FORI=JTOR 

190 IF A<I,JX>0 THEN 230 
200 NEXTI 

210 F'RINT"SOLUZIONE NON UNICA" 

220 GOTO440 

228 REM-LE ISTRUZIONI DAL 230 AL 270 SPOSTANO L'EQUAZIONE IN SU PER 

229 REM-LA RIGA CORRENTE 

230 FORK=1TOR+1 
240 X=A<J,K> 

250 A(J,K)=A<1/K> 

260 A<I,K)=X 
270 NEXTK 

278 REM-LE ISTRUZIONI DAL 280 AL 310 GENERANO UN VALORE DI UNO NELLA PRIMA 

279 REM-COLONNA DIVERSA DA 0 NELLA RIGA CORRENTE 
230 V=1/A(J/J> 

290 F0RK=1T0R+1 
300 A(J,K)=V*A<J,K> 

310 NEXTK 
320 FORI=lTOR 
330 IFI=JTHEN380 
340 V=-A<I,J> 

350 FORK=lTOR+l 

360 A<I,K>=fl<I,K;)+V#A<J,K> 

370 NEXTK 
330 NEXTI 

339 REM-IL PROCEDIMENTO VIENE RIPETUTO PER TUTTE LE EQUAZIONI 
390 NEXTJ 
400 PRINT 

409 REM-STAMPA LE SOLUZIONI 

410 F0RI=1TOR 

420 PRINT"X";I;"=";INT<A<I,R+1)*1000+.5)21000 
430 NEXTI 
440 END 
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PROGRAMMAZIONE LINEARE 

dovuto alla cortesia di: Harold Hancs; Earlham College; Richmond, Indiana 


Questo programma utilizza il metodo dei simplessi per risolvere un problema 
di programmazione lineare. Si debbono inserire i coefficienti della funzione 
obiettivo e i coefficienti, le relazioni e le costanti di ciascun vincolo. Queste 
informazioni vengono inserite nello stato dei dati prima di far partire il program¬ 
ma. 

Nel momento in cui si carica il programma, i dati vanno inseriti secondo le 
seguenti istruzioni. Desiderando far girare più di un problema, ci si deve ricordare 
di concellare tutto lo stato dei dati del precedente problema, prima di partire con 
uno nuovo. 

La specifica dei dati si presenta dalla linea 30 alla 35. 

1) Si ordinino i vincoli del problema a seconda delle loro relazioni, in modo 
che le relazioni di disuguaglianza “minore di” precedano quelle di 
uguaglianza, le quali, a loro volta, precedano le relazioni di disugua¬ 
glianza “maggiore di”. 

2) Si inseriscano nei dati i coefficienti dei vincoli, nell’ordine in cui i vincoli 
stessi sono stati ordinati nello step 1. Non si devono includere i coeffi¬ 
cienti inattivi o in eccedenza, o le variabili artificiali. Non si deve 
includere il coefficiente 0 per ogni variabile, se questo non compare in 
vincoli particolari. 

3) Si inseriscano nei dati le costanti dei vincoli (situate in ogni equazione 
alla destra dell’uguale) nello stesso ordine in cui sono state inserite le 
righe dei coefficienti. Questi valori non possono essere negativi. 

4) Si inseriscano nei dati i coefficienti della funzione obiettivo. 

È necessario decidere se la soluzione del problema deve avere un valore massimo o 
minimo. Il programma richiede anche che si inseriscano il totale numero di vincoli 
e il numero di variabili permesse per ciascuno di essi, oltre al numero di vincoli del 
tipo “minore di”, “uguale”, “maggiore di” che si stanno considerando. 

La dimensione dello stato alla linea 180 limita il numero delle variabili e delle 
costanti che si possono inserire. Questi limiti possono essre variati mediante il 
seguente schema: 

180 DIM A(C + 2, V + C + G + 1), B(C + 2) 

in cui C = numero di vincoli 
V = numero di variabili 
G = numero dei vincoli “maggiore di” 
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Esemplo: 

Una ditta desidera produrre 100 tonnellate di una lega composta da 83% di 
piombo, 14% di ferro e 3% di antimonio. 

La ditta ha la possibilità di produrre cinque leghe con le seguenti composizio¬ 
ni e i seguenti prezzi: 


lega 1 lega 2 lega 3 lega 4 lega 5 


90 

80 

95 

70 

30 

5 

5 

2 

30 

70 

5 

15 

3 

0 

0 

$6,13 

$7,12 

$5,85 

$4,57 

$3,96 


Come è possibile combinare queste leghe in modo da combinare il prodotto 
desiderato al minimo costo? 

Si noti che questo problema è determinato dalla risoluzione del seguente 
sistema di equazioni: 


X| 

+ 

x 2 + 

Xj + 

x< + 

x s =100 

0,90x, 

+ 

0,80x 2 + 

0,95x, + 

0,70x, + 

0,30x s = 83 

0,05xi 

+ 

0,05X2 + 

0 ,02xj + 

0,30x< 4- 

0,70x, = 14 

0,05Xi 

+ 

0,15X2 + 

0,03xj + 


= 3 

6.13x, 

+ 

7,12x 2 + 

5,85xj + 

4,57X4 + 

3,96x s = Z (min) 


^ROGRAMMAZIONE LINEARE - 
METODO DEI SIMPLESSI 

1=MASSIMI2ZA -1=MINIMIZZA?-1 

# DI VINCOLI/ # DI VARIABILI? 4 , 5 

# DI <,=,> VINCOLI ? 0 , 4 , 0 


LE VOSTRE VARIABILI DA 1 A 5 
VARIABILI ARTIFICIALI DA 6 A 9 


RISPOSTE: 

VARIABILI PRIMITIVE: 

VARIABILE VALORE 

2 10.4347826 

3 47.826087 

4 41.7391304 

VALORE DELLA FUNZIONE OBIETTIVO = 544.326087 


Listing del programma 

1 REM - PROGRAMMAZIONE LINEARE 

20 REM - *** ESEGUIRE I SEGUENTI PASSI PRIMA DI FAR PARTIRE IL PROGRAMMA *** 

21 REM - INSERIRE I COEFFICIENTI DEI VINCOLI NELLE ISTRUZIONI DATA 


100 






















22 REM - PARTENDO DALLA LINEA 30, UN'ISTRUZIONE DATA PFR nnur uiwrni n ■ 

23 REM - (LINEE 30-35 NEL NOSTRO ESEMPIO) DHTH PER OONI VINCOLO , 

24 REM - INSERIRE LE COSTANTI DEI VINCOLI NELL'ISTRUZIONE DATA -,irrrcciur, 

25 REM - IL COEFFICIENTE DEI DATI, VENDONO INSERI TINELLO STESSO ORD?NF 

REM - DEI VINCOLI DATI (LINEA 34 NEL NOSTRO ESEMPIO) S0 ORDINE 

27 REM - INSERIRE I COEFFICIENTI DELLA FUNZIONE OBIETTIVO NELL'ISTRUZIONE tibtp 

28 REM - (LINEA 35 NEL NOSTRO ESEMPIO) SECONDO LE COSTANTI DATE R 

10 DATA 1,1,1,1,1 

11 DATA . 9, .8,. 95, .7, .3 

32 DATA .05,.05,.02,.3,.7 

33 DATA .05,.15,.03,0,0 

34 DATA 100,83,14,3 

35 DATA 6.13,7.12,5.85,4.57,3.96 
100 PRINT "3" 

170 PRINT "PROGRAMMAZIONE LINEARE - " 

175 PRINT "METODO DEI SIMPLESSI" 

180 DIM A(6,10),B(6) 

Z00 PRINT 

210 PRINT "1=MASSIMIZZA -^MINIMIZZA"; 

220 INPUT Z 


r;:0 2=-2 

240 PRINT "# DI VINCOLI, # DI 
245 PRINT "VARIABILI"; 

250 INPUT M, N : F'RINT“?“M; ", " ; N 

260 PRINT “# DI <,=,> VINCOLI 

270 INPUT L,E,G 

280 IF M=L+E+G THEN 320 

290 PRINT "DATI INCONSISTENTI- 

295 PRINT "PROVA ANCORA" 

300 GOTO 260 

319 REM - QUESTA E' UNA ROUTINE DI INIZIALIZZAZIONE 

320 C=N+M+G 
330 C1=C+1 
340 C2=N+L+G 
350 M1=M+1 
360 M2=M+2 
330 PRINT 

390 FOR 1=1 TC N2 
400 FOR J=1 TO CI 
410 Ad, J)=0 


420 NEXT : 

430 NEXT I 
440 FOR 1=1 TO M 


450 E(I>=0 
460 NEXT I 
470 FOR 1=1 TO M 
430 FOR J=1 TO N 
430 READ Ad,J) 

500 IF K=L THEN 520 

510 A(M1,J>=A(M1,J)-A(I,J) 

520 NEXT J 

530 IF I3L THEN 570 

540 Ed >=N+I 

550 Ad,N+I)=1 

560 GOTO 630 

570 Ed >=N+G+1 


530 A(I,N+G+I)=1 
590 IF I3L+E THEN 610 
500 GOTO 630 
610 Ad,N+I-E)=-l 
620 A(M1,N+I-E)=l 
630 NEXT I 
640 FOR 1=1 TO M 
650 READ A(I,C1> 

660 NEXT I 
670 FOR J=1 TO N 
630 READ A(M2,J) 

690 A(M2,J)=Z*A(M2,J) 
700 NEXT J 
710 PRINT 
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730 PRINT "LE VOSTRE VARIABILI 

731 PRINT "BA";1;"A";N 
740 IF L=0 THEH 760 

750 PRINT "VARIABILI INATTIVE ": 

751 PRINT "DA";N+1;"fl";N+L 
760 IF G=0 THEN 7S0 

770 PRINT "VARIABILI IN ECCESSO 

771 PRINT"BA";N+L+1;"A";C2 
780 IF L=M THEN 970 

790 PRINT "VARIABILI ARTIFICIALI ■; 

791 F'RINT"DA";C2+1 ; "A";C 
800 M3=M1 

810 GOSUB 1240 

320 PRINT 

330 FOR 11=1 TO M 

840 IF BdlX=C2 THEN 950 

850 IF A(I1/CI><=.00001 THEN 880 

860 PRINT "SOLUZIONE NON REALIZZABILE” 

870 GOTO 1700 
880 FOR Jl=l TO C2 

890 IF ABS<A<I1/J1>><=.00001 THEN 940 

900 R=I1 

910 S=J1 

920 GOSUB 1490 

930 J1=C2 

940 NEXT J1 

950 NEXT II 

970 PRINT 

930 M3=M2 

990 GOSUB 1240 

1020 PRINT 

1030 PRINT "RISPOSTE" 

1040 PRINT "VARIABILI PRIMITIVE:" 

1050 PRINT "VARIABILE"/"VALORE” 

1060 FOR J=1 TO C2 
1070 FOR 1=1 TO M 
1080 IF BCI>OJ THEN 1110 
1090 PRINT J/ACI,C1> 

1100 I=M 

1110 NEXT I 

1120 NEXT J 

1130 IF L=0 THEN 1190 

1140 PRINT "VARIABILI DUALI:" 

1150 PRINT "VARIABILE"/"VALORE" 

1160 FOR 1=1 TO L 

1170 PRINT I/-Z*A(M2,N+I> 

1180 NEXT I 

1190 PRINT "VALORE DELLA FUNZIONE 

1191 PRINT "OBIETTIVO = ";-Z*A<M2/Ci: 

1200 PRINT 

1210 PRINT 
1230 GOTO 1700 

1240 REM - ROUTINE DI OTTIMIZZAZIONE 

1241 REM - PRIMO PREZZO FUORI DALLE COLONNE 
1260 P=-.00001 

1270 FOR J=1 TO C2 

1280 IF A<M3,J»=P THEH 1318 

1290 S=J 

1300 P=A<M3/J> 

1310 NEXT J 

1320 IF ?=-. 00O01 THEN 1680 
1330 GOSUB 1350 
1340 GOSUB 1440 
1345 GOTO 1260 

1350 REM - ORA SI TROVA QUALE VARIABILE LASCIA LA BASE 

1360 Q=1E3S 

1370 FOR 1=1 TO M 

1380 IF A(I/S><=.00001 THEN 1428 

1390 IF A< I/ CI >/A< I/ S»=Q THEN 1428 

1400 R=I 
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1410 Q=fk I; CI )/FK I, S) 

1420 NEXT I 
430 RETURN 

1440 IF Q=1E3S THEN 1470 
1450 G03UE 1430 
1460 RETURN 

1470 RR1NT "INFINITE SOLUZIONI" 

1430 GOTO 1700 

1490 REM - ESEGUIRE RUOTANDO 
1500 P=fl(R<3) 

1510 FOR 1 = 1 TO M2 

1520 IF I=R THEN 1530 

1530 FOR J=1 TO CI 

1540 IF J=S THEN 1530 

1550 Ad,J>=Aa,J)-A(I,S>!((A(R,J)/P 

1560 IF AB3(A(I,J))>=.00001 THEN 1530 

1570 fl( I< J)=0 

1530 NEXT J 

1530 NEXT I 

1600 FOR J=1 TO CI 

1610 FKR,J>=fi<R,J)/P 

1620 NEXT J 

1630 FOR 1=1 TO M2 

1640 fl(I,S)=0 

1650 NEXT I 

1660 A(R/S)=l 

1670 B<R)=S 

1680 RETURN 

1700 END 



ADDIZIONE, SOTTRAZIONE 
E MOLTIPLICAZIONE PER UNO SCALARE 

DI MATRICI 


Questo programma addiziona o sottrae due matrici, oppure moltiplica una 
matrice per un dato scalare. E possibile inserire i valori di ogni elemento per 
ciascuna matrice. L’addizione e la sottrazione delle due matrici sono possibili solo 
se le dimensioni di queste sono uguali. 

La dimensione delle matrici può essere incrementata o decrementata in 
funzione della grandezza della memoria del sistema adoperato. Lo statement 30 
può essere variato in: 

30 DIM A(X,Y), B(X,Y) 

in cui X e Y rappresentano i limiti delle dimensioni delle matrici. 


Esempio: 

Sommare le seguenti matrici e, 
risultante per 3. 



ADDIZIONE, SOTTRAZIONE 
MOLTIPLICAZIONE SCALARE 
DI MATRICI 

1=ADDIZI0NE 
2=S0TTRAZIONE 
3=M0LTIPLICAZI0NE SCALARE 

QUALE OPERAZIONE? 1 
DIMENSIONI DELLA MATRICE <R,C: 
? 3 , 3 
MATRICE 1 
RIGA 1 

VALORE DELLA COLONNA 1 ? 1 
VALORE DELLA COLONNA 2 ? 0 
VALORE DELLA COLONNA 3 ?-l 
RIGA 2 

VALORE DELLA COLONNA 1 ? 5 
VALORE DELLA COLONNA 2 ? S 
VALORE DELLA COLONNA 3 ? .5 
RIGA 3 

VALORE DELLA COLONNA 1 7-1 
VALORE DELLA COLONNA 2 ? 2 
VALORE DELLA COLONNA 3 ? 0 
MATRICE 2 


successivamente, moltiplicare la matrice 



104 



41OA * 
VALORE 
VALORE 
VALORE 

rior 2 

VALORE 

VALORE 

VALORE 

RIOR 3 

VALORE 

VALORE 

VALORE 


DELLR 

DELLA 


COLONNA 

1 

?■ 


COLONNA 

2 


-1 

COLONNA 

3 


2 

COLONNA 

i 

■n, 

6 

COLONNA 

2 

7- 


COLONNA 

3 

7 

0 

COLONNA 

1 

? 

3 

COLONNA 

2 

-*> 

4 

COLONNA 

3 

7* 



-4 

11 


-1 


altri dati <i=si, o=no>? ì 

1=ABDIZIGNE 

2=SOTTRAZIONE 

3=MOLTirliorziohe scalare 

QUALE OPERAZIONE? 3 
VALORE SCALARE 

? 3 

DIMENSIONI DELLA MATRICE 
? 3 > 3 
MATRICE 1 
RIGA 1 


VALORE 

DELLA 

COLONNA 

i 

?-4 

VALORE 

DELLA 

COLONNA 


?-l 

VALORE 

DELLA 

COLONNA 

3 

? 1 

RIOR 2 
VALORE 

DELLA 

COLONNA 

1 

? 11 

VALORE 

DELLA 

COLONNA 

2 

? 7.9 

VALORE 
RIGA 3 

DELLA 

COLONNA 

3 

? .5 

VALORE 

DELLA 

COLONNA 

1 

? 2 

VALORE 

DELLA 

COLONNA 

2 

? 6 

VALORE 

DELLA 

COLONNA 

3 

?-2 

-12 

-3 

3 



33 

23.? 

1.5 




6 18 -6 


ALTRI DATI <1=SI, 0=NO> 
? 0 


Listing del programma 

20 PRINT "ADDIZIONE, SOTTRAZIONE" 

21 PRINT “MOLTIPLICAZIONE SCALARE” 

22 PRINT "DI MATRICI" 

25 PRINT 

28 REM - L'ORDINE DEI VETTORI DEVE ESSERE ASSEGNATO IN BASE ALLE DIMENSIONI 

29 REM - DELLE MATRICI 

30 DIM A<3,3),B<3,3> 

40 PRINT ”l=ADDIZIONE” 

50 PRINT "2=S0TTRAZIONE" 

60 PRINT ,I 3=M0LTIPLICAZIONE SCALARE" 

65 PRINT 


105 




69 REM - SCEGLIERE L'OPERAZIONE INSERENDO IL NUMERO CORRISPONDENTE 

70 PRINT"QUALE OPERAZIONE"; 

80 INPUT D 

89 REM - TEST PER ADDIZIONE 0 SOTTRAZIONE 

90 IF D<>3 THEN 120 

100 PRINT"VALORE SCALARE" 

110 INPUT S 

120 PRINT“DIMENSIONI DELLA MATRICE <R,C>" 

130 INPUT R,C 

138 REM - CICLO PER INTRODURRE I VALORI DELLA MATRICE 

139 REM - PER LA SOTTRAZIONE LA MATRICE 2 VIENE SOTTRATTA DALLA MATRICE 1 

140 FOR K=1 TO 2 
150 IF K=2 THEN 180 
160 PRINT "MATRICE 1 :" 

170 GOTO 190 

180 PRINT "MATRICE 2" 

190 FOR J=1 TO R 
200 PRINT "RIGA";J 
210 FOR 1=1 TO C 

220 PRINT "VALORE DELLA COLONNA";I; 

230 IF K=2 THEN 260 
240 INPUT ACJ,Il 
250 GOTO 270 
260 INPUT BCJ,I) 

270 NEXT I 
280 NEXT J 

289 REM - UNA SOLA MATRICE VIENE USATA PER LA MOLTIPLICAZIONE SCALARE 

290 IF D=3 THEN 310 
300 NEXT K 

305 PRINT 

308 REM - LE ISTRUZIONI DALLA RIGA 310 ALLA 410 SVOLGONO LE OPERAZIONI 

309 REM - RICHIESTE E STAMPANO LA MATRICE RISULTANTE 

310 FOR J=1 TO R 
320 FOR 1=1 TO C 
330 IF D02 THEN 350 
340 B<J,I>=-B(J,I) 

350 IF D=3 THEN 380 

360 PRINT A<J,I)+B<J,I>;" "; 

370 GOTO 390 

380 PRINT ACJ,I)*S;" "; 

390 NEXT I 

399 REM - AVANZARE PER STAMPARE LA RIGA SUCCESSIVA 

400 PRINT-PRINT 
410 NEXT J 

420 PRINT 

428 REM - IL PROGRAMMA RI-INIZIA 0 TERMINA? VIENE RICHIESTO L'INTERVENTO 

429 REM - DELL'UTENTE 

430 PRINT "ALTRI DATI <1=SI, 0=NO>“; 

440 INPUT D 

450 IF D=1 THEN 40 
460 END 
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MOLTIPLICAZIONE TRA MATRICI 


Questo programma moltiplica due matrici. Per l’esattezza, è la prima matrice 
che moltiplica la seconda. E necessario inserire gli elementi di ciascuna matrice. 

Per quanto riguarda questa operazione, è necessario che il numero di righe 
della prima matrice sia uguale al numero di righe della seconda. 

Nel caso specifico, la dimensione delle matrici è limitata a 20x20. Questo 
limite può essere incrementato, o decrementato, variando la linea 30 secondo il 
seguente schema: 

30 DIM A(X,Y), B(Z,X) 


dove: (x,y) = dimensioni della matrice 1 

(z,x) = dimensioni della matrice 2 


Esempio: 

Moltiplicare la matrice 1 per la matrice 2. 


1 


1 2-141 2 

10 12-1 
2 3-10-2 


2 


-2 -1 2 

0 2 1 

-1 1 4 

3 0-1 

2 1 2 


30 DIM A(3,5>,E<5,3> 

READY. 

DIMENSIONI DELLA MATRICE 1 <R,C>? 3 , 5 
DIMENSIONI DELLA MATRICE 2 <R,C>? 5 , 3 
MATRICE 1 
RIGA 1 

VALORE DELLA COLONNA 1 ? 2 
VALORE DELLA COLONNA 2 ?-l • 

VALORE DELLA COLONNA 3 ? 4 
VALORE DELLA COLONNA 4 ? 1 
VALORE DELLA COLONNA 5 ”» 2 
RIGA 2 

VALORE DELLA COLONNA 1 ? 1 
VALORE DELLA COLONNA 2 ? 0 
VALORE DELLA COLONNA 3 ? 1 
VALORE DELLA COLONNA 4 ? 2 
VALORE DELLA COLONNA 5 ?-l 
RIGA 3 

VALORE DELLA COLONNA 1 ? 2 


107 



VALORE 

DELLA 

COLONNA 

2 

? 3 

VALORE 

DELLA 

COLONNA 

3 

?-l 

VALORE 

DELLA 

COLONNA 

4 

7 ? 

VALORE 

DELLA 

COLONNA 

5 

?-2 

MATRICE 2- 
RIGA 1 

VALORE DELLA 

COLONNA 

1 

?-2 

VALORE 

DELLA 

COLONNA 

2 

?-7 

VALORE 

DELLA 

COLONNA 

3 

? 2 

RIGA 2 
VALORE 

DELLA 

COLONNA 

1 

? 0 

VALORE 

DELLA 

COLONNA 

2 

'? 2 

•VALORE 

DELLA 

COLONNA 

3 

? 1 

RIGA 3 
•VALORE 

DELLA 

COLONNA 

1 

?-l 

VALORE 

DELLA 

COLONNA 

2 

•*> i 

'ALORE 

DELLA 

COLONNA 

3 

? 4 

RIGA 4 
■'ALORE 

DELLA 

COLONNA 

1 

? 3 

VALORE 

DELLO 

COLONNA 

2 

? 0 

VALORE 

DELLA 

COLONNA 

9 

?-l 

RIGA 5 
VALORE 

DELLA 

COLONNA 

1 

? 2 

■VALORE 

DELLA 

COLONNA 

2 

? 1 

VALORE 

DELLA 

COLONNA 

3 

? 2 


-1 2 22 


i -i 2 

-7 : -ì 


Listing del programma 

10 PRINT "3101TIFLICflZIONE DI MATRICI” 

20 PRINT 

28 REM - LE DIMENSIONI DELLE MATRICI A E B DEVONO ESSERE ASSEGNATE IN BASE 

29 REM - ALLE DIMENSIONI DELLE MATRICI 

30 DIM A<20,20>,B(20,20) 

40 PRINT "DIMENSIONI DELLA MATRICE 1 <R,C>"; 

50 INPUT RI,CI 

60 PRINT "DIMENSIONI DELLA MATRICE 2 <R,C>"; 

70 INPUT R2,C2 

78 REM - IL NUMERO DELLE COLONNE DELLA MATRICE 1 DEVE ESSERE UGUALE AL NUMERO 

79 REM - DI RIGHE DELLA MATRICE 2 
30 IF C1=R2 THEN 110 

90 PRINT "NON POSSONO ESSERE MOLTIPLICATE" 

180 GOTO 40 

109 REM - INSERIRE I VALORI DELLE MATRICI 

110 PRINT "MATRICE 1=" 

120 FOR J=1 TO RI 

130 PRINT "RIGA";J 
140 FOR 1=1 TO CI 

150 PRINT "VALORE DELLA COLONNA";I; 

169 INPUT A(J,I) 

170 NEXT I 
180 NEXT J 
190 PRINT 

200 PRINT "MATRICE 2" 

2 10 FOR J=1 TO R2 
220 PRINT "RIGA";J 
230 FOR 1=1 TO C2 

240 PRINT "VALORE DELLA COLONNA";I; 

250 INPUT B<J,I) 

260 NEXT I 
270 NEXT J 
280 PRINT 
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289 REM - MOLTIPLICORE LE MOTRICI E STAMPARE LO MOTRICE RISULTANTE 

290 FOR 1=1 TO RI 
300 FOR J=1 TO C2 
310 S=0 

320 FOR K=1 TO CI 
330 S=S+A(I,K>#B<K,J> 

3 40 NEXT K 

350 PRINT s;" ■; 

380 NEXT J 

369 REM - AVANZARE PER STAMPARE LA PROSSIMO RIGA 

370 PRINT PRINT 
380 NEXT I 

390 END 



INVERSIONE DI MATRICI 


Questo programma inverte una matrice quadrata. Questa inversione è com¬ 
piuta mediante una modifica del metodo per eliminazione di Gauss-Jordan. 

Nel caso specifico, la dimensione delle matrici è limitata a 20 x 20. Il limite 
può essre incrementato o decrementato variando la linea 30 secondo il seguente 
schema: 


30 DIM A(R,R), B(R,R) 

dove R = numero di righe (o di colonne) della matrice. 


Esempio: 

Invertire la matrice A. 

-4 
-3 
-1 
0,3 


! 3 5 -1 

1 4 -0,7 

0-2 0 
-2 6 0 


INVERSIONE DI MATRICI 

DIMENSIONE DELLA MATRICE? 4 
ELEMENTI DELLA MATRICE : 

RIGA 1 


VALORE 

DI 

COLONNA 

I 

? 3 

VALORE 

DI 

COLONNA 

2 

? 5 

VALORE 

DI 

COLONNA 

3 

?-l 

VALORE 
RIGA 2 

DI 

COLONNA 

4 

?-4 

VALORE 

DI 

COLONNA 

1 

? 1 

VALORE 

DI 

COLONNA 

2 

? 4 

VALORE 

DI 

COLONNA 

3 

?-. 7 

VALORE 
RIGA 3 

DI 

COLONNA 

4 

?-3 

VALORE 

DI 

COLONNA 

1 

? 0 

VALORE 

DI 

COLONNA 

2 

?-2 

VALORE 

DI 

COLONNA 

3 

? 0 

VALORE 
RIGA 4 

DI 

COLONNA 

4 

? 1 

VALORE 

DI 

COLONNA 

1 

?-2 

VALORE 

DI 

COLONNA 

o 

e- 

? 6 

VALORE 

DI 

COLONNA 

3 

? 0 

VALORE 

DI 

COLONNA 

4 

? .3 


654 

-.935 

-.191 

.814 

198 

-.283 

-.103 

.156 

368 

-1.955 

-4.263 

-.425 

397 

-.567 

.793 

.312 
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Listlng del programma 

10 FRINT"niNVERSIOHE PI MATRICI" 

*0 PRINT 

Ro REM - flO E BO DEVONO ENTRAMBE ESSERE DIMENSIONATE IN BASE ALLA MATRICE 
DIM A<20-20>,B(20,20> 

io REM - LA MATRICE E' QUADRATA QUINDI E' RICHIESTA UNA SOLA DIMENSIONE 
40 PRINT "DIMENSIONE DELLA MATRICE"; 

50 INPUT R 

S 0 PRINT "ELEMENTI DELLA MATRICE : " 

59 REM - INSERIRE OLI ELEMENTI DELLA MATRICE 
V@ POR J=1 TO R 
40 PRINT "RIGA";J 
o 0 FOR 1=1 TO R 

Ì 00 PRINT "VALORE DI COLONNA";I; 

•10 INPUT A<J,I) 

Ì20 NEXT I 
130 B<J,J>=1 
140 NEXT J 

14? REM - LE ISTRUZIONI DALLA RIGA 150 ALLA 420 INVERTONO LA MATRICE 

150 FOR J=1 TO R 

160 FOR I=J TO R 

170 IF Ad, J>O0 THEN 210 

ISO NEXT I 

190 PRINT "MATRICE SINGOLARE" 

200 GOTO 500 
210 FOR K=1 TO R 
220 S=A<J,tO 
230 A(J,K)=A(I,K) 

240 Ad,K)=S 
250 S=B(J,K> 

260 B< J,K)=Bd,K> 

270 Bd,K)=S 
2S0 NEXT K 
290 T=1/A(J,J> 

300 FOR K=1 TO R 
310 A<J,K)=T*A<J,K> 

320 B(J,K)=T*B(J,K) 

330 NEXT K 
340 FOR L=1 TO R 
350 IF‘L=J THEN 410 
360 T=-A<L,J> 

370 FOR K=1 TO R 

3S0 A(L, K)=A(L,K>+T*A<J,K) 

390 B(L,K)=B<L,K)+T*B<J,K) 

400 NEXT K 
410 NEXT L 
420 NEXT J 
430 PRINT 

439 REM STAMPA LA MATRICE RISULTANTE 

440 FOR 1=1 TO R 
450 FOR J=1 TO R 

459 REM - ARROTONDA, STAMPA 

460 PRINT INT<Bd,J)*1000+.5V1000, 

461 PRINT " “; 

470 NEXT J 

479 REM - AVANZARE PER STAMPARE LA RIGA SEGUENTE 

480 PRINT:PRINT 
490 NEXT I 

500 END 
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PERMUTAZIONI E COMBINAZIONI 


Questo programma calcola il numero di permutazioni e di combinazioni di N 
oggetti, presi a D alla volta. 


Esempi: 

Quante combinazioni e permutazioni possono essere ottenute con le 26 
lettere dell’alfabeto, prendendone cinque alla volta? 

In quanti modi differenti possono sedersi dodici persone in un sedile, se c’è 
posto solo per due? 


PERMUTAZIONI E COMEINAZIONI 

; INSERISCI 0 PER TERMINARE IL PROGRAMMA) 
NUMERO TOTALE DI OGGETTI? 26 
DIMENSIONE DEL SOTTOGRUPPO? 5 
7893600 PERMUTAZIONI 
65780 COMBINAZIONI 

NUMERO TOTALE DI OGGETTI? 12 
DIMENSIONE DEL SOTTOGRUPPO? 2 
:32 PERMUTAZIONI 
66 COMBINAZIONI 

NUMERO TOTALE DI OGGETTI? 0 


Listing del programma 

20 PRINT "7PERMUTAZIONI E COMBINAZIONI" 

25 PRINT 

30 PRINT “(INSERISCI 0 PER TERMINARE IL PROGRAMMA)" 

40 PRINT "NUMERO TOTALE DI OGGETTI"; 

50 INPUT N 

59 REM - TEST PER FINE PROGRAMMA 

60 IF N=0 THEH 280 

70 PRINT "DIMENSIONE DEL SOTTOGRUPPO"; 

88 INPUT D 

83 REM - LA DIMENSIONE DEL SOTTOGRUPPO NON PUÒ' ESSERE MAGGIORE DI QUELLA DEL 

39 REM - SOTTOGRUPPO 

90 IF DON THEN 130 

100 PRINT "SOTTOGRUPPO TROPPO GRANDE" 

110 PRINT 
120 GOTO 40 

129 REM - LE RIGHE DA 130 A 200 CALCOLANO LE PERMUTAZIONI 

130 P=1 
140 C=1 

150 FOR I=N-D+1 TO N 

158 REM - NON CONSENTE ALLA DIMENSIONE DEL NUMERO DI SUFERARE LE CAPACITA' 

159 REM - DELLA MACCHINA 

160 IF 1.7E38/I>=P THEN 190 

170 PRINT") 1.7E38 PERMUTAZIONI" 

180 GOTO 280 
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•Ti <•» f J C<l tt<V|C*J C*l 'M 'M 


1*0 P=P*1 
00 NEXT I 

0? REM - CALCOLA IL FATTORIALE INTERMEDIO PER LE COMBINAZIONI 
IO FOR J=2 TO D 
20 C=C*J 
30 NEXT J 

48 PRINT P.: "PERMUTAZIONI" 

50 PRINT P/C;“COMBINAZIONI" 

60 PRINT 

63 REM - IL PROGRAMMA RIF'ART' 

70 GOTO 40 


114 


IL TEST U DI MANN-WHITNEY 


Questo programma utilizza il criterio U di Mann-Whitney su un campione 
preso da due popolazioni. 

Le dimensioni dello statement sulla linea 30 delimita la grandezza dei cam¬ 
pioni. E possibile incrementare o decrementare questi limiti, secondo il seguente 
schema: 

30 DIM X(M), Y(N) 

dove: M = massima grandezza del primo campione 

N = massima grandezza del secondo campione. 


Esempio: 

Ad un gruppo di dieci donne e ad uno di dieci uomini viene chiesto di valutare 
il gusto di un piatto freddo, mediante una votazione da uno a dieci. La tabella 
sottostante elenca i punteggi ottenuti. Calcolare il numero delle volte in cui il 
punteggio delle donne è inferiore al punteggio degli uomini e viceversa. 


donne 

uomini 


1 

3 

4 

3 

6 

8 

9 

7 

8 

4 

7 

9_ 

8_ 

5_ 

10 

_9_ 


_6_ 

5_ 

2 


30 DIM X(10>,V<10> 

RERDV. 

7EST U DI MANN-WHITHEV 

CAMPIONE 1 : 

GRANDEZZA? 10 
DATI 1 ? 1 
DATI 2 ? 3 
DATI 3 ? 4 
DATI 4 ? 3 
DATI 5 ? 6 
DATI 6 ? 3 
DATI 7 ? 9 
DATI 3 ? ? 

DATI 3 ? 3 
DATI 10 ? 4 

CAMPIONE 2 ■ 

GRANDEZZA? 10 
DATI 1 ? 7 
DATI 2 ? 3 
DATI 3 ? 3 
DATI 4 ? 5 
DATI 5 ? 10 
DATI 6 ? 3 
DATI 7 ? 10 
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DATI 3 ? 6 
DATI 9 ? 5 
DATI 10 ? 2 


PRIMO PRECEDENTE, U = 71.5 
SECONDO PRECEDENTE, U = 28.5 


Listing del programma 

10 PRINT'TJTEST U DI MANN-WHITNEV” 

20 PRINT 

27 REM-ASSEGNA LA GRANDEZZA MASSIMA DEL CAMPIONE A X<M>,V<N) (IN CUI M E' LA 

28 REM-GRANDEZZA MASSIMA DEL CAMPIONE 1,N E' LA GRANDEZZA MASSIMA 

29 REM-DEL CAMPIONE 2> 

30 DIM X<25>,Y<25> 

40 DIM N(2> 

49 REM-SI INSERISCONO I DUE CAMPIONI 

50 POR 1=1 TO 2 

60 PRINT "CAMP IONE 11 ; I; “ : * 

70 PRINT"GRANDEZZA"; 

80 INPUT N<I> 

90 FOR J=1 TO NO) 

100 PRINT" DATI";J; 

110 INPUT V(J> 

120 NEXT J 

129 REM-RAGGRUPPARE OGNI CAMPIONE 

130 FOR J=1 TO NO> 

140 FOR K-l TO N<I>-J 
150 C=V(K> 

170 IF V<KXY<K+1> THEN 200 
180 YOO-V<K+1> 

190 Y<K+1)=C 
200 NEXT K 
210 NEXT J 
220 PRINT 

229 REM-TRASFERIRE IL PRIMO CAMPIONE ALLA MATRICE X 

230 IF 1=2 THEN 270 
240 FOR J=1 TO N(1> 

250 X(J>=V<J> 

260 NEXT J 
270 NEXT I 

279 REM-SOMMA LE FILE 

280 R=1 
290 1=0 
300 J=0 
310 1=1+1 
320 J=J+1 

330 IF I>NO> THEN 580 
340 IF J>N<2> THEN 620 
350 IF X(IXY(J) THEN 620 
360 IF V<JXXO> THEN 590 

368 REM-LE LINEE DAL 370 AL 570 MANEGGIANO I PUNTEGGI UGUALI DA ENTRAMBI 

369 REM-I CAMPIONI 

370 K=2 
380 M=I 
390 L=J 

400 R1=2*R+1 
410 R=R+2 
420 1=1+1 
430 J=J+1 

440 IF I>N<1> THEN 480 

450 IF X(IXXI-l) THEN 480 

460 1=1+1 

470 GOTO 510 

480 IF J>N<2> THEN 550 

490 IF V(JXXJ-l) THEN 550 
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500 

51® 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

658 

659 

660 
668 

669 

670 
680 
690 
700 
710 


J=J+1 

R1=R1+R 

R=R+1 

K=K+1 

GOTO 440 

X=X+CI-M>*R1/K 

V=V+(J-L)*R1/K 

GOTO 330 

IF J>N<2> THEN 660 
V=Y+R 
J=J+1 
GOTO'640 
X=X+R 
1=1 + 1 
R=R+1 
GOTO 330 

REM-U1=NUMERO DI VOLTE IN CUI I PUNTEGGI 
REM-PUNTEGGI DEL CAMPIONE 2 
U1=N<1 >*N(2>+N<1 >4KN( 1>+l>/2-X 
REM-U2=NUMER0 DI VOLTE IN CUI I PUNTEGGI 
REM-PUNTEGGI DEL CAMPIONE 1 
U2=N<1)*N(2)+N<2)*(N(2)+1)/2-V 
PRINT 

PRINT“PRIMO PRECEDENTE, U =";U1 
PRINT"SECONDO PRECEDENTE; U =";U2 
END 


DEL CAMPIONE 1 PRECEDONO I 
DEL CAMPIONE 2 PRECEDONO I 



MEDIA, VARIANZA, DEVIAZIONE STANDARD 


Questo programma calcola la media aritmetica, la varianza e la deviazione 
standard di un certo numero di dati, raggruppati o meno. I dati possono rappre¬ 
sentare una intera popolazione o semplicemente un campione. 


Esempi: 

Alla ricezione di un hotel vi sono dieci persone, la cui età è di 87,53,35,42,9, 
48, 51, 60, 39 e 44 anni. Quale sarà la media, la varianza e la deviazione standard 
dell’età di tutti i clienti dell’hotel, considerando come campione i clienti alla 
ricezione? 

Trovare la media, la varianza e la deviazione standard dell’età di una crema 
di formaggio posta in un ripiano di un negozio. La tabella seguente indica la 
distribuzione delle età di 50 confezioni. Si ponga che la tabella mostri l’intero 
inventario della quantità. Cosa si avrà se questa rappresenta solo un campione 
dell’intero inventario? 


età 

1 

2 

3 

4 

5 

6 

quantità 

15 

10 

9 

6 

7 

3 


crema di formaggio 


MEDIA, VARIANZA, DEVIAZIONE STANDARD 


METODO t 0=POPOLAZIONE, 1 CAMPIONE)? 1 

DATI <0=RAGGRUPPAT1, 1=N0N RAGGRUPPATI)? 1 

NUMERO DI OSSERVAZIONI? 10 

VOCE 1 ? 37 

VOCE 2 ? 53 

VOCE 3 ? 35 

VOCE 4 ? 42 

VOCE 5 ? 9 

VOCE 6 ? 48 

VOCE 7 ? 51 

VOCE 8 ? 60 

VOCE 9 ? 39 

VOCE 10 ? 44 


MEDIA 

46.8 


VARIANZA 

389.733332 


DEVIAZIONE STANDARD 
19.7416649 


ALTRI DATI <1=SI,0=NO>? 1 


METODO (0=POPOLAZIONE, 1=CAMPI0NE>? 0 

DATI <0=RAGGRUPPATI, l=NON RAGGRUPPATI)? 0 

NUMERO DI OSSERVAZIONI? 6 

VOCE, FREQUENZA 1 ? 1 , 15 

VOCE, FREQUENZA 2 ? 2 , 10 

'VOCE, FREQUENZA 3 ? 3 , 9 

VOCE- FREQUENZA 4 ? 4 , 6 
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MCE, FREQUENZA 575,7 
VOCE- FREQUENZA 676, 3 


MEDIA 

£.73 


VARIANZA 

2.57159999 


DEVIAZIONE STANDARD 
1.6036209 


ALTRI DATI <1=SI,0=NO>? 1 

METODO <0=POROLAZIONE, SCAMPI ONE)? 1 
DATI <0=RAGGRUPPATI, 1=N0N raggruppato? e 
HUMERO DI OSSERVAZIONI? 6 
VOCE. FREQUENZA 1 ? 1 , 15 
VOCE/ FREQUENZA 2 ? 2 , 10 
VOCE, FREQUENZA 3 ? 3 , 9 
•VOCE, FREQUENZA 4 ? 4 , 6 
VOCE, FREQUENZA 5 ? 5 , ? 

VOCE, FREQUENZA 6 ? 6 , 3 


MEDIA VARIANZA 

2.78 2.62408162 


DEVIAZIONE STANDARD 
1.61990173 


ALTRI DATI <1=SI,0=NO>? 0 


Listing del programma 

10 print'thedia, varianza, ■; 

20 PRINT"DEVIAZIONE STANDARD" 

25 PRINT 

30 PRINT“METODO <0=POPOLAZ1ONE, ", 

31 PRINT"l=CAMPIONE>”; 

40 INPUT S 

50 PRINT-DATI <0=RAGGRUPPATI, "; 

51 PRINT"l=NON RAGGRUPPATI)"; 

60 INPUT K 

70 PRINT"NUMERO DI OSSERVAZIONI"; 

30 INPUT N 
90 R=0 
100 M=0 
110 P=0 

120 IF K=1 THEN 230 

129 REM-PER DATI RAGGRUPPATI 

130 FOR. 1*1 TO N 

140 PRINT"VOCE, FREQUENZA";I; 

150 INPUT A-B 

159 REM-ACCUMULARE I DATI INSERITI 

160 R*R+B#fì 

169 REM-ACCUMULARE I VALORI INTERMEDI PER LA VARIANZA 

170 P=P+B 
180 M=M+B*AT2 
190 NEXT I 

199 REM-CALCOLARE LA MEDIA E LA VARIANZA 

200 R=R/P 

210 V*<M-P#RT2)/(P-S) 

219 REM-STAMPA DEI RISULTATI 

220 GOTO 3ie 

229 REM-PER DATI NON RAGGRUPPATI 

230 FOR 1=1 TO N 
240 PRINT“VOCE";I; 

250 INPUT D 
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259 REM-ACCUMULARE I URTI INSERITI 

260 P=P+D 

269 REM-ACCUMULARE I VALORI INTERMEDI PER Lfi VRRIRNZR 

270 M=M+DT2 
230 NEXT I 

289 REM-CALCOLO DELLA MEDIA E DELLA VARIANZA E STAMPA 

290 R=P/N 

300 V=<M-N*Rt2V<N-S> 

310 PRINT 

319 REM-STAMPA RISULTATI 

320 PRINT"MEDIA","VARIANZA" 

330 FRINIR,V 

331 PRINT 

332 PRINT''DEVIRZIONE STANDARD" 

333 PRINTSQR<V> 

340 PRINT 

349 REM-IL PROGRAMMA DEVE RIPARTIRE? SI RICHIEDE LA RISPOSTA DELL'UTENTE 

350 FRINT"ALTRI DATI <1=SI,0=NO>"; 

360 INPUT S 

370 IF 3=1 THEN 25 
380 END 
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MEDIA E DEVIAZIONE GEOMETRICA 


Questo programma calcola la media e la deviazione geometrica standard di 
una serie di dati. 


Esempio: 

Trovare la media geometrica e la deviazione standard di 3, 5, 8, 3, 7, 2. 


"lEBIfi E DEVIAZIONE GEOMETRICA 

•PER TERMINARE IL PROGRAMMA INSERIRE 0) 

NUMERO DI OSSERVAZIONI? 6 

VOCE 1 ? 3 

VOCE 2 ? 5 

••'OCE 3 ? 8 

VOCE 4 ? 3 

VOCE 5 ? 7 

VOCE 6 ? 2 

MEDIA GEOMETRICA= 4.14068084 
DEVIAZIONE GEOMETRICA= 1.72368956 

NUMERO DI OSSERVAZIONI? 0 


Listing del programma 

IO PRINT'TMEDIA E DEVIAZIONE GEOMETRICA" 

20 FRINT 

30 PRINT”(PER TERMINARE IL PROGRAMMA INSERIRE 0>“ 

40 PRINT"NUMERO DI OSSERVAZIONI"; 

50 INPUT N 

53 REM-TEST PER LA FINE DEL PROGRAMMA 
60 IF N=0 THEN 200 
63 REM-CALCOLO DELLA RADICE DA USARE 
"0 F-l/N 
30 M=1 

30 FOR 1=1 TO N 
100 FRINT"VOCE";I; 
llO INPUT D 

113 REM-SI CALCOLA LA MEDIA ITERATIVAMENTE 
120 M=M*DtP 

123 REM-SI ACCUMULANO I TERMINI INTERMEDI PER LA DEVIAZIONE 
130 0=Q+L0G(D)t2 
140 NEXT I 

143 REM-SI CALCOLA LA DEVIAZIONE 

150 R=EXP(SQR<QAN-1 )-<N/(N-l >*<L0G(M>)t2)>) 

160 FRINT"MEDIA GEOMETRICA»";M 
170 FRINT"DEVIAZIONE GEOMETRICA=“ ;R 
180 PRINT 

183 REM-IL PROGRAMMA RIPARTE 
130 GOTO 40 
200 END 
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DISTRIBUZIONE BINOMIALE 


Questo programma calcola la possibilità di ottenere un dato numero di eventi 
favorevoli in un determinato numero di prove di Bernulli. 


Esempi: 

Qual’è la possibilità di ottenere tre teste con cinque lanci di una moneta? 
Qual’è la possibilità di ottenere due volte il numero uno, lanciando cinque 
volte un dado? 


DISTRIBUZIONE BINOMIRLE 

(PER TERMINARE IL PROGRAMMA INSERIRE 0) 
NUMERO DI PROVE? 5 
NUMERO ESATTO DI SUCCESSI? 3 
PROBABILITÀ' DI SUCCESSO? .5 

PROBABILITÀ' DI 3 SUCCESSI 
SU 5 PROVE = .3125 

NUMERO DI FROVE? 5 

NUMERO ESATTO DI SUCCESSI? 2 

PROBABILITÀ' DI SUCCESSO? .166666667 

PROBABILITÀ' DI 2 SUCCESSI 
SU 5 PROVE = .160751029 

•(LIMERÒ DI PROVE? 0 


Listing del programma 

10 PRINT"UDÌSTRISUZIONE BINOMIALE" 

20 FRINT 
30 DIM M<3> 

40 PRINT"(PER TERMINARE IL PROGRAMMA INSERIRE 0)' 
50 PRINT"NUMERO DI FROVE"; 

60 INPUT N 

■0 IF N=0 THEN 270 

30 FRINT"NUMERO ESATTO DI SUCCESSI"; 

30 INPUT X 

100 PRINT"PROBABILITÀ' DI SUCCESSO"; 

110 INPUT P 

113 REM-CALCOLO DEI FATTORIALI 

120 M(1)=N 

130 M<2)=X 

140 M(3>=N-X 

150 FOR 1=1 TO 3 

160 IF MCI>=0 THEN 220 

170 0=1 

180 FOR J=1 TO M(I> 

130 A=A#J 
200 NEXT ] 

210 M(I>=L0G(A) 
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•—O next I 

REM-USANDO I FATTORIALI CALCOLATI- CALCOLA LE PROBABILITÀ" 
nÓ R=EXP i M<1)-M < 2)-M<3> +X*LOG < P)+C N-X > «LOG <1-P)> 
hs FRINT 

T.0 PRINT"PROBABILITÀ" DI“-X. 

-45 PRINT"SUCCESSI“ 

' 4 T PRIHT"SU”;N"PROVE =“-R 
"50 FRINT 

? 5 A REM-IL PROGRAMMA RIPARTE 
-CO GOTO 50 
;r0 END 
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DISTRIBUZIONE DI POISSON 


Il programma, mediante la distribuzione di Poisson, calcola la probabilità 
che un evento succeda un dato numero di volte. È necessario conoscere la 
frequenza che ci si aspetta dall’evento. 


Esempio: 

Si inietta un siero a 2.000 persone. La probabilità che qualche persona abbia 
una reazione negatica è dello 0,001. In questo caso ci si aspetta che due (0,001 x 
2.000 = 2) individui avranno una reazione negativa. Qual’è la probabilità che 
quattro persone abbiano una reazione negativa? E che l’abbia una persona sola? 


31STRIBUSIONE DI POISSON 

(INSERIRE 0 PER TERMINARE IL PROGRAMMA' 

FREQUENZA CALCOLATA? 2 
FREQUENZA RILEVATA? 4 
PROBABILITÀ-' DI 4 
EVENTI = .0902235222 


FREQUENZA CALCOLATA? 2 
FREQUENZA RILEVATA? 1 
PROBABILITÀ' DI 1 
EVENTO = .270670566 

FREQUENZA CALCOLATA? 0 


Listing del programma 

10 PRINT"RIDISTRIBUZIONE DI POISSON" 

15 PRINT 

20 PRINT"(INSERIRE 0 PER TERMINARE IL PROGRAMMA) 
SO PRINT 

40 FRINT"FREQUENZA CALCOLATA"; 

50 INPUT L 

55 REM-FINE PROGRAMMA 

60 IP L=0 THEH 1S0 

70 PRINT"FREQUENZA RILEVATA"; 

30 INPUT X 

35 REM-CALC0LA I FATTORIALI 
30 A=i 

100 F0R 1=1 T0 X 
110 H=A*I 
120 NEXT I 

125 REM-CALCOLO DELLA PROBABILITÀ' 

130 A=L0G(A> 

140 A=EXP<-L+a#L0G(L)-A > 

150 PRINT"PROBABILITÀ' DI“;X 

155 IF X=1 THEN PRINT"EVENTO =";AG0T0165 

163 PRINT"EVENTI =";A 

165 REM-IL PROGRAMMA RIPARTE 

170 GOTO 30 

1yù END 
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DISTRIBUZIONE NORMALE 


Questo programma calcola la probabilità e la frequenza di determinati valori 
su una curva di normale distribuzione standard. E necessario utilizzare variabili 
n0 n standard se si vogliono conoscere la media e la deviazione standard. 



Normale distribuzione standard 


L’area più scura rappresenta la probabilità di x. y corrisponde alla frequenza 

di x. 

La probabilità normale è approssimata usando la seguente formula: 


probabilità =1-r(a,f + a 2 f J + a 3 f 3 )+ e (x ) 

con: a , = : 0,4361836 

a 2 = -0,1201676 
a, = 0,9372980 
r = 

t = (1 +0,3326x1* 1 
| € (X ) | < IO* 6 

Esempio: 


Il peso medio degli studenti in un college è di 75 Kg. La deviazione standard è 
di 7,5 Kg. Se i pesi sono normalmente distribuiti, qual’è la probabilità che uno 
studente abbia un peso compreso tra i 75 e i 90 chili? E quale tra i 65 e i 75? 


DISTRIBUZIONE NORMALE 

(0=STANDARD, 1=NQN STANDARD) 

CHE TIPO DI VARIABILE? 1 
MEDIA? 150 

DEVIAZIONE STANDARD? 15 

(PER TERMINARE IL PROGRAMMA X=99999> 
X=? 180 

FREQUENZA= .0539909665 
PROBABILITÀ' = .977241178 


X=? 130 

FREQUENZA= .164010074 
PROBABILITÀ' = .908793028 


X=? 99999 
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Listing del programma 

10 PRINT".TDISTRIBU2I0NE NORMALE" 

20 PRINT 

30 PRINT"<0=STANDARD, l=NON STANDARD)" 

40 PRINT"CHE TIPO DI VARIABILE"; 

50 INPUT S 

60 IF S=0 THEN 120 

69 REM-LE LINEE DAL 70 AL 110 RICHIEDONO DATI VARIABILI NON STANDARD 

70 PRINT"MEDIA"; 

30 INPUT M 

90 PR I NT " DE VIA21ONE STANDARD"; 

100 INPUT S 
110 GOTO 130 
120 S=1 
130 PRINT 

140 PRINT"<PER TERMINARE IL PROGRAMMA X=99999)" 

150 PRINT"X=”; 

160 INPUT V 

170 IF X=99999 THEN 290 
130 X=ABS<<X-MVS> 

190 R=£XP<-<X12V2)/2.5066282746 
200 PRINT"FREQUEN2A= ";R 
210 2=X 

220 T=1/<1+.33267*ABS<X>) 

230 T=1-R* C.4361836*T-.120167*T12+.937298*T13) 

240 IF 2>=.0 THEN 260 
250 T=l-T 

260 PRINT“PROBABILITÀ' =“;T 
270 PRINT 

279 REM-IL PROGRAMMA RIPARTE 

280 GOTO 150 
290 END 
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DISTRIBUZIONE DEL CHI-QUADRO 


Il programma calcola il valore della parte terminale per punti su una curva di 
distribuzione del chi-quadro X 2 . 



Distribuzione del chi-quadro 

L’area più scura rappresenta il valore della parte terminale del chi-quadro 

(X 2 ). 

La funzione di distribuzione chi-quadro è calcolata utilizzando la seguente 
formula: 

con v dispari, valore (X 2 )(v + 1)/2 , e -x 2 /2 / 2 ^ 1 

della parte terminale = 1- 


1 • 3 • 5 ... • v 


X 2 1T 


con v pari, valore ( X 2 )v /2 . e - x 2 /2 

della parte terminale = 1 - ---- ■ ■ ■ . . z 


2 • 4 •... v 

in cui v = gradi di libertà 

oo 

Z = 1+1 _ 


[X 2 )m 


m = 1 (v+2)*(v+4)«...(v + 2 m ) 


Poiché la sommatoria per il calcolo di Z non può essere estesa all’infinito, 
questa si arresterà quando il termine successivo sarà inferiore ad un prescelto 
livello di precisione. La precisione di calcolo è limitata approssimativamente a 
IO" 7 . 

Esempio: 

Sono state date delle pillole di sonnifero a 54 persone di un gruppo di 168 
individui che soffre di insonnia. Alle rimanenti persone sono stati dati dei placebo, 
cioè delle pillole senza nessun effetto terapeutico, se non quello psicologico. 
Successivamente è stato chiesto se le pillole hanno aiutato le persone ad 
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addormentarsi. La statistica X 2 è stata calcolata a 2,571108 con un grado di 
libertà. Qual’è il valore della parte terminale? 

DISTRIBUZIONE DEL CHI-QUADRO 

(PER TERMINARE IL PROGRAMMA INSERIRE 0) 

GRADI DI LIBERTA'? 1 
CHI-QUADRO? 2.571108 

VALORE DELLA PARTE TERMINALE = .103831483 
GRADI DI LIBERTA'? 0 


Listlng del programma 

10 PRINT"3DISTRIBUZI0NE DEL CHI-QUADRO" 

20 PRINT 

30 PRINT"(PER TERMINARE IL PROGRAMMA INSERIRE 0)" 

40 PRINT"GRADI DI LIBERTA'"; 

50 INPUT V 

60 IF V=0 THEN 280 

70 PRINT"CHI-QUADRO"; 

80 INPUT U 

89 REM- RIPRODOTTO DEL DENOMINATORE 

90 R=1 

100 POR >V TO 2 STEP-2 
110 R=R*I 
120 NEXT I 

129 REM- K=PRODOTTO AL NUMERATORE 

130 K=Ut(INT((V+l)/2))*EXP(-W/2)/R 

138 REM- IL FATTORE PI, CIOÈ' PI GRECO, E' USATO SOLO QUANDO I GRADI DI 

139 REM- LIBERTA' SONO DISPARI 

140 IF INT(U/2>=U,'2 THEN 170 
150 J=SQR(2/W/ir> 

160 GOTO 180 

169 REM- L, (FATTORE DI SOMMA;, E' CALCOLATO CON LE LINEE DAL 170 AL 240 

170 J*1 
180 L=1 
190 M=1 
200 V=V+2 
210 M=M*W/V 

219 REM- VERIFICA PER LA FINE DELLA SOMMA 

220 IF MC.0000001 THEN 250 
230 L=L+M 

240 GOTO 200 

250 PRINT”VALORE DELLA PARTE TERMINALE =";1-J*K*L 
260 PRINT 

269 REM- IL PROGRAMMA RIPARTE 

270 GOTO 40 
280 END 


OPZIONE 

È possibile calcolare il percentile, cioè l’altra parte dell’area della curva, 
invece del valore della parte terminale. I necessari cambiamenti di programma 
sono elencati nell’esempio seguente. 
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Esempio: 

Qual’è il percentile nell’esempio precedente? 

distribuzione del chi-quadro 

cPER TERMINARE IL PROGRAMMA INSERIRE 0; 

GRADI DI LIBERTA'? 1 
CHI-QUADRO? 2.571103 
PERCENTUALE = .391163517 

GRADI DI LIBERTA? 0 


Oioz i one 
1 REM - OPZIONE 250 

10 PRINT" HD13TRIBUZIONE DEL CHI-QUADRO" 


240 GOTO 200 

250 FRINT"PERCENTUALE =",J*K*L 
260 PRINT 

269 REM- IL PROGRAMMA RIPARTE 

270 GOTO 40 
230 END 
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TEST DEL CHI-QUADRO 


Questo programma calcola la statistica del chi-quadro (X 2 ) e i gradi di libertà 
associati ad una data tabella di eventi. Verranno stampati sia il valore cercato per 
ogni casella, sia il contributo al chi-quadro da ogni casella. 

La dimensione dello statement alla linea 30 limita la grandezza della tabella 
di eventi. E possibile cambiarne le dimensioni secondo il seguente schema: 

30 DIM VI (R C), V2(C), A(R) 

dove: R = numero di righe della tabella di eventualità 

C = numero di colonne della tabella di eventualità 


Esempio: 

Ad alcune persone, appartenenti ad un gruppo di sofferenti di insonnia, 
vengono date delle pillole di sonnifero, mentre alle altre vengono somministrati 
dei placebo. Più tardi a tutti viene chiesto se le pillole li hanno aiutati a dormire. 

I risultati sono riportati nella tabella seguente. Qual’è il valore del chi-quadro 
statistico? 


Sonnifero 

Placebo 


dormito dormito 
bene male 


44 

10 

81 

35 


30 DIM "l(4),V(2)/fl(2) 
READY. 

NUMERO DI RIGHE? 2 
NUMERO DI COLONNE? 2 
"nBELLA DEGLI EVENTI ; 
RIGA 1 

ELEMENTO 1 ? 44 
ELEMENTO 2 V 10 
RIGA 2 

ELEMENTO 1 ? SI 
ELEMENTO 2 ? 35 


VALORE OSSERVATO 
COLONNA 1 
44 
31 

COLONNA 2 
10 


VALORE PREVISTO 

33."058824 
35.2941177 

14.2941176 
30.7058824 


CONTRIBUTO CHI 42 

.362549019 

.168772821 

1.00708061 

.468313387 


CHI QUADRO = 2.00721584 
GRADI DI LIBERTA' = 1 
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Llsting del programma 

10 PRINT"3TEST DEL CHI QUADRO" 

20 PRINT 

.-'3 REM - SI LIMITANO LE DIMENSIONI DELLA TABELLA DEGLI EVENTI fi V1(R*D, 

'•? REM - V2(C), A<R>; DOVE R=NUMERQ DI RIGHE/ C=NUMERO DI COLONNE 

30 DIM VI<25>/V2<2>/A<2) 

REM - la TABELLA DEGLI EVENTI VIENE INTRODOTTA DALLA LINEA 50 ALLA 150 
50 INPUT R 

-.0 PRINT "NUMERO DI COLONNE"; 
re input c 

30 PRINT"TABELLA DELLE EVENTUALITÀ':" 

30 FOR 1=1 TO R 

100 PRINT"RIGR";I 

110 FOR J=1 TO C 

120 PRINT" ELEMENTO";J; 

130 INPUT VK<I-1>#C+J> 

140 NEXT J 
150 NEXT I 
ISO PRINT 

163 REM - SOMMA DELLE FREQUENZE PARZIALI PER OGNI RIGA 
170 L=0 
ISO M=1 

130 FOR 1=1 TO R 
200 FOR J=1 TO C 
210 A<I)=A<I>+V1<M> 

220 M=M+1 
230 NEXT J 
240 L=L+A(I> 

250 NEXT I 
260 N=R*C 

263 REM - SOMMA DELLE FREQUENZE FARZIALI PER OGNI COLONNA 

270 FOR 1=1 TO C 

230 FOR J=I TO N STEP C 

230 V2<I>=V2(I)+V1<J) 

300 NEXT J 
310 NEXT I 
320 Z=0 

330 PRINT"OSSERVATO PREVISTO CONTR. CH112" 

340 FOR 1=1 TO C 
350 PRINT" COLONNA";I 
360 FOR J=1 TO R 

363 REM - P-7AL0RE ATTESO DELLA CASELLA 
370 P=A<J)*V2(I>/L 
375 j_i )j|fc 

373 REM - SI USA LA CORREZIONE DI VATES PER LA CONTINUITÀ' IN UN TEST DEL CHI 
373 REM - QUADRO FORMATO 2X2 

330 IF R<>2 THEN 330 

331 IF C02 THEN 390 

332 V=<ABSCVl(X>-P)-.5>t2/P 

333 GOTO 400 

333 REM - V=CONTRIBUTO DEL CHI QUADRO DA QUESTA CASELLA 
330 V=(V1<X>-P>T2/P 

399 REM - Z=VALORE TOTALE DEL CHI QUADRO 

400 Z=Z+V 

410 FRINTTABC3>;VKX>/P;TAB<23>V 
420 NEXT J 
430 NEXT I 
440 PRINT 

450 PRINT"CHI QUADRO =";Z 

460 PRINT"GRADI DI LIBERTA' ="; 

461 PRINT <C-1)*<R-1) 

470 END 
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DISTRIBUZIONE t DI STUDENT 


Il programma calcola il valore della coda di destra per punti di una curva di 
distribuzione t. È necessario assegnare il valore di t e i gradi di libertà. 



Distribuzione t di student 

L’area più scura rappresenta il valore della coda di destra per t. 

Il valore della coda di destra è approssimato usando la seguente formula: 

valore i 

della coda di destra = ' ( i + a , x + a 2 x 2 + a 3 x 3 + a 4 x 4 ) _4 + c (x ) 

2 r 

dove: ai = 0,196854 

32 = 0,115194 
a } - 0,000344 
a 4 = 0,019527 

x = r i/s (l - gj)- g) (g + t Vt • 9^)" ,/2 
d = gradi di libertà 

| c (x ) | < 2,5 • IO* 4 

Esempi: 

Qual’è il valore della coda di destra, quando il valore di t è 2,921 ed esistono 
16 gradi di libertà? 

Qual’è il valore della coda di destra, quando il valore di t è 11,178 ed esistono 
5 gradi di libertà? 

DISTRIBUZIONE T DI STUDENT 

<INSERIRE 0 PER TERMINARE IL PROGRAMMA) 

VALORE DI T? 2.921 

GRADI DI LIBERTA"? lb 

VALORE DELLA CODA DI DESTRA = 9.7E-04 

VALORE DI T? 11.178 

GRADI DI LIBERTA"? 5 

VALORE DELLA CODA DI DESTRA = 4E-05 

VALORE DI T? 0 
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Listing del programma 

•0 PR: I NT " HDISTRIBUZI ONE T DI STUDENT" 

70 FRI NT 

30 FRINT"(INSERIRE 0 PER TERNINfiRE IL PROGRAMMA)" 

40 FRINT"VALORE DI T"; 

50 INPUT T 

50 IF T=0 THEN 340 

70 PRINT "GRADI DI LIBERTA'”; 

30 INPUT D 
90 X=1 
100 Y=1 
110 T=TT2 

119 REM - CALCOLARE USANDO L'INVERSO PER PICCOLI VALORI DI T 

120 IF T<1 THEN 170 
130 S=V 

140 R=D 
150 2=T 
160 GOTO 200 
170 S=D 
ISO R=V 
190 Z=l/T 
200 J=2/9/S 
210 K=2/9/R 

219 REM - SI USANO FORMULE DI APPROSSIMAZIONE 

220 L=ABS((l-K)*ZT(l/3)-l+J)/SQR(K*Zt(2/3)+J> 

230 IF R<4 THEN 270 

240 5/(1 +L*(. 196354+L*(. 115194+L*(. 000344+L*. 019527) ) ) ) t4 

250 X=INT(X*10000+.5)/100000 

260 GOTO 290 

270 L=L*(1+.0S*LT4/Rt3> 

230 GOTO 240 

239 REM - APPROSSIMARE SE E' STATO CALCOLATO L'INVERSO 
290 IF T>=1 THEN 310 
300 X=l-X 

310 PRINT "VALORE DELLA CODA DI DESTRA =";X 
320 PRINT 

329 REM - IL PROGRAMMA RIPARTE 

330 GOTO 40 
340 END 



TEST DELLA DISTRIBUZIONE t DI STUDENT 


Questo programma calcola il t statistico e i gradi di libertà di una distribuzio¬ 
ne di Student. Il calcolo è basato su una delle tre seguenti ipotesi. 

La prima prende come ipotesi che una popolazione media sia uguale ad un 
determinato valore. È necessario introdurre gli elementi del campione ed il valore 
della media. 

Le rimanenti ipotesi paragonano due popolazioni. In entrambi i test le medie 
delle due popolazioni sono uguali, mentre la deviazione standard può anche non 
esserlo. Con queste ipotesi è necessario introdurre gli elementi di ciascun campio¬ 
ne. 

La dimensione dello statement alla linea 30 limita la grandezza dei campioni 
che si vogliono inserire. Tuttavia è possibile cambiare il limite mediante il seguen¬ 
te schema: 

30 DIM P(N,2) 

dove N è la massima grandezza del campione. 


Esempi: 

Considerando il quoziente di intelligenza QI di un campione di ragazzi, si 
sono avuti i seguenti risultati: 

101, 99, 120, 79, 111, 98, 106, 112, 87, 97. 

Calcolare il t statistico, con l’ipotesi che la media della popolazione sia 100. 
In un secondo campione si sono avuti i seguenti risultati: 

101, 95, 130, 150, 75, 79, 111, 100, 98, 91. 

Calcolare il t statistico con l’ipotesi che i due campioni hanno la stessa media 
e la stessa deviazione standard. 


TEST DELLA DISTRIBUZIONE T DI STUDENT 

TEST l: MEDIA=X 
TEST 2: MEDIA=tìEDIfl, DS=DS 
TEST 3 : MEDIA=MEDIA. DSODS 
QUALE IPOTESI? 1 

CAMPIONE 1 : 

NUMERO DI ELEMENTI ? 10 
ELEMENTI 1 ? 101 
ELEMENTI 2 ? 99 
ELEMENTI 3 ? 120 
ELEMENTI 4 ? 79 
ELEMENTI 5 ? Ili 
ELEMENTI 6 ? 93 
ELEMENTI 7 ? 106 
ELEMENTI 8 ? 112 
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ELEMENTI 9 ? 87 
ELEMENTI 10 ? 97 


VALORE DELLO MEDIO? 100 

VALORE DI T= .26151303 
GRADI DI LIBERTO' = 9 


TEST DELLO DISTRIBUZIONE T DI STUDENT 

TEST 1 : MEDIA=X 
TEST 2- MEDIO=MEDIfl/ DS=DS 
TEST 3> MEDIA=MEDIA, DSODS 
QUALE IPOTESI? 2 

CAMPIONE 1 : 

NUMERO DI ELEMENTI ? 10 
ELEMENTI 1 ? 101 
ELEMENTI 2 ? 99 
ELEMENTI 3 ? 120 
ELEMENTI 4 ? 79 
ELEMENTI 5 ? Ili 
ELEMENTI 6 ? 98 
ELEMENTI 7 ? 106 
ELEMENTI 8 ? 112 
ELEMENTI 9 ? 87 
ELEMENTI 10 ? 97 
CAMPIONE 2 

NUMERO DI ELEMENTI ? 10 
ELEMENTI 1 ? 101 
ELEMENTI 2 ? 95 
ELEMENTI 3 ? 130 
ELEMENTI 4 ? 150 
ELEMENTI 5 ? 75 
ELEMENTI 6 ? 79 
ELEMENTI 7 ? Ili 
ELEMENTI 8 ? 100 
ELEMENTI 9 ? 93 
ELEMENTI 10 ? 91 


VOLORE DI T= .246515218 
GRADI DI LIBERTO' = 18 


Listing del programma 

10 PRINT"3TEST DELLO DISTRIBUZIONE T DI STUDENT” 

20 PRINT 

28 REM - SI LIMITO LA GRANDEZZA DEL CAMPIONE A PCN,2> IN CUI N-DIMENSIONE 

29 REM - MASSIMO DEL CAMPIONE 

30 DIM P(10.2) 

40 DIM V<2>,R(2>,M<2),D<2> • 

50 PRINT"TEST 1= MEDIA=X" 

60 PRINT"TEST 2 MEDIA=MEDIA, DS=DS" 

70 PRINT "TEST 3: MEDIfl=MEDIA, DSODS" 

80 PRINT"QUALE IPOTESI"; 

90 INPUT T 
100 PRINT 

109 REM'- INSERIRE 1 0 2 CAMPIONI 0 SECONDO DELLE IPOTESI 

110 FOR 1=1 TO SGNCT-l >+l 
120 V<I>=0 

130 D<I>=0 

140 PRINT"COMPÌONE"; I;" : “ 


135 






150 PRINT“NUMERO DI ELEMENTI "; 

160 INPUT R<I> 

170 FOR J=1 TO R<I> 

188 PRINT” ELEMENTI";J; 

190 INPUT P(J,I> 

199 REM - SI ACCUMULANO I CAMPIONI 

200 V(I)=V<I>+P<J,I> 

210 D<I>=D<I>+P<J,I>t2 
220 NEXT J 

229 REM - SI CALCOLANO I VALORI INTERMEDI 

230 M<I>=V<I)/R<I) 

240 V<I) = <Da>-V<I>t2/R<I>>/<R<I>-l> 

250 NEXT I 
260 PRINT 

270 IF T=2 THEN 340 
280 IF T=3 THEN 380 

289 REM - SI INSERISCONO I VALORI DATI PER LA PRIMA IPOTESI 

290 PRINT "VALORE DELLA MEDIA"; 

300 INPUT M 

309 REM - CALCOLO DI T E GRADI DI LIBERTA' PER LA PRIMA IPOTESI 

310 A=<MC1>-M)#SQR<R(1>/V<1>> 

320 B«=R<1>-1 

330 GOTO 420 

339 REM - CALCOLO DI T E GRADI DI LIBERTA' FER LA SECONDA IPOTESI 

340 A»<M<l)-M<2>VSQR<17R<l)+i/R<2>) 

350 B=R(l)+R<2>-2 

360 A=A/SQR<C<R<l)-l)*Va)+<R(2)-l>*V(2))/B) 

370 GOTO 420 

379 REM - CALCOLO DI T E GRADI DI LIBERTA' PER LA TERZA IPOTESI 

380 A=(M(1)-M(2))7SQR<V(1>/R(1)+V<2)/R(2>> 

390 B=<VaVRa>+V<2)/R<2>>T2 

400 B=B/<<V<1)/R<1>) t2/(R( 1 >+l>+<V<2VR(2>> T2/<R<2)+l>>-2 

410 B=INT(B+.5) 

420 PRINT 

430 PRINT"VALORE DI T=",AB3<A> 

440 PRINT"GRADI DI LIBERTA' =";B 
450 END 
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DISTRIBUZIONE F 


Il programma calcola i valori percentili per determinati valori di una curva di 
distribuzione F. È necessario inserire i valori di F, i gradi di libertà nel numeratore 
e quelli nel denominatore. 



La distribuzione F 
L’area più scura rappresenta il percentile. 

La funzione di distribuzione F è approssimata mediante la seguente formula: 
percentile =1-2 < 1 + a iK + a 2 Y 2 + a 3 >' 3 + a 4 y 4 ) -4 + e(y) 

dove: ai = 0,196854 
a 2 = 0,115194 
a 3 = 0,000344 
a 4 = 0,019527 

2 _ 2 _ _ 2 _ 2 
y = (F ^(l - 9 ( y 2 )-(1 - $ d )){ 9 ^ + F 2/ a • 9 ^) * */» 

d y = gradi di libertà nel numeratore 
d 2 = gradi di libertà nel denominatore 

| e (/ ) | < 2,5 x IO * 4 


Esempi: 

Qual’è il percentile di una curva di distribuzione F, quando il valore di F è 
0,474 e i gradi di libertà sono 1 e 18? 

Qual’è il percentile quando il valore di F è 23,7 e i gradi di libertà sono 3 e 6? 

DISTRIBUZIONE F 

(INSERIRE 0 PER TERMINARE IL PROGRAMMA) 

VALORE DI F? .474 

GRADI DI LIBERTA' NEL NUMERATORE? 1' 

GRADI DI LIBERTA' NEL DENOMINATORE? 18 
PERCENTILE = .4937 

VALORE DI F? 23.7 

GRADI DI LIBERTA' NEL NUMERATORE? 3 
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rcflDI DI LIBERTA' NEL DENOM I NATORE? 
PERCENTILE = .3984 


6 


VALORE DI F? 0 


Llsting del programma 

IO PRINT "."DI STRI SUZIONE F" 

20 FRINT 

30 PRINT"<INSERIRE 0 PER TERMINARE IL PROGRAMMA)" 

40 PRIHT "VALORE DI F"; 

50 INPUT F 

c'0 IF F=0 THEH 340 

70 PRIHT"GRADI DI LIBERTA' 

71 PRINT"HEL NUMERATORE"; 

30 INPUT DI 

30 PRINT"GRADI DI LIBERTA' "1 

31 PRINT“NEL DENOMINATORE"; 

100 INPUT D2 

110 X=1 

113 REM - CALCOLA USANDO L' INVERSO PER PICCOLI VALORI DI F 

120 IF F<1 THEN 170 

130 S=D1 

140 T=02 

150 Z=F 

160 GOTO 200 

170 S=D2 

130 T=D1 

130 Z=l/F 

200 J=2/9/S 

210 K=2/9/T 

219 REM - CALCOLA CON L' USO DI FORMULE DI APPROSSIMAZIONE 

220 V=ABS<<l-K)*ZtCl/3)-l+J>/SQRCK*Zt<2/3)+J) 

230 IF T<4 THEN 270 

240 X=.5/<l+Y*<.196354+V#<.115194+V*C.000344+V#.019527))))T4 

250 X=INT<X*10000+.5)/10000 

260 GOTO 290 

270 V=Y*a + .03*Vt4,’Tt3> 

230 GOTO240 

239 REM - APPROSSIMA SE E' STATO CALCOLATO L' INVERSO 
290 IF F>=1 THEN 310 
300 X=l-X 

310 PRINT"PERCENTILE =“;1-X 
320 PRINT 

329 REM - IL PROGRAMMA RIPARTE 

330 GOTO 40 
340 END 


OPZIONE 

È possibile anche calcolare il valore di fine coda (l’area chiara nella figura 
precedente). Le variazioni necessarie di programma sono elencate negli esempi 
seguenti. 
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Esempi: 

Qual’è il valore di fine coda di una curva di distribuzione F, in cui il valore di 
F è 0,474 e i gradi di libertà sono 1 e 18? 

Qual’è il valore di fine coda, quando il valore di F è 23,7 e i gradi di libertà 
sono 3 e 6? 

distribuzione di f 

(INSERIRE 0 PER TERMINARE IL PROGRAMMA) 

VALORE DI F? .474 

GRADI DI LIBERTA' NEL NUMERATORE? 1 
GRADI DI LIBERTA' NEL DENOMINATORE? 18 
VALORE DI FINE CODA = .5063 

VALORE DI F? 23.7 

GRADI DI LIBERTA' NEL NUMERATORE? 3 
GRADI DI LIBERTA' NEL DENOMINATORE? 6 
VALORE DI FINE CODA = 1.6E-03 

VALORE DI F? 0 


i_u®z i one 

1 REM - OPZIONE 310 

10 PRINT"UBISTRISUZIONE DI F“ 


30G X=l-X 

310 PRINT"VALORE DI FINE CODA =";X 
320 PRINT 

329 REM - IL PROGRAMMA RIPARTE 

330 GOTO 40 
340 END 
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COEFFICIENTE DI CORRELAZIONE LINEARE 


Questo programma calcola il coefficiente di correlazione tra due variabili. Si 
presume che tra le due variabili esista una correlazione lineare. È necessario 
inserire le coordinate del gruppo di punti dati che forma la linea di regressione. 

Esempio: 

La tabella che compare più sotto riporta l’altezza di dodici uomini e dei loro 
dodici figli. Qual’è il coefficiente di correlazione tra le altezze dei padri e quella dei 
figli? 


padri 

65 

63 

67 

64 

68 

62 

70 

66 

68 

67 

69 

71 

figli 

68 

66 

68 

65 

69 

66 

68 

65 

71 

67 

68 

70 


altezze in pollici (= 2,54 cm) 


COEFFICIENTE DI CORRELAZIONE LINEARE 


NUMERO DI PUNTI? 12 


x,v 

DEL 

PUNTO 

1 

? 65 , 

63 

:<,v 

DEL 

PUNTO 

2 

? 63 , 

66 

x,v 

DEL 

PUNTO 

3 

? 67 , 

63 

x,v 

DEL 

PUNTO 

4 

? 64 , 

65 

x,v 

DEL 

PUNTO 

5 

? 68 , 

63 

x,v 

DEL 

PUNTO 

6 

? 62 , 

66 

x,v 

DEL 

PUNTO 

7 

? 70 , 

63 

x,v 

DEL 

PUNTO 

8 

? 66 , 

65 

x,v 

DEL 

PUNTO 

3 

? 68 , 

71 

x,v 

DEL 

PUNTO 

10 ? 67 

, 67 

x,v 

DEL 

PUNTO 

11 ? 63 

, 68 

x,v 

DEL 

PUNTO 

12 ? 71 

, 70 


COEFFICIENTE DI CORRELAZIONE = .702652253 


Listing del programma 

10 PRINT'LXOEFFICIENTE DI CORRELAZIONE LINEARE" 
20 PRINT 

30 PRINT"NUMERO DI PUNTI"; 

40 INPUT N 

33 REM - INSERIRE LE COORDINATE DEI PUNTI DATI 

100 FOR 1=1 TO N 

110 PRINT"”,V DEL PUNTO";I; 

120 INPUT X,V 
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129 REM - SI ACCUMULANO I VALORI INTERMEDI 

138 J=J+X 

140 K=K+Y 

150 L=L+Xt2 

160 M=M+V T2 

178 R=R+X*V 

138 NEXT I 

139 REM - SI CALCOLA IL COEFFICIENTE E LO SI STAMPA 
190 R2=<N*R-J*K>/SQR<<N*L-Jt2>*<N*M-Kf2>> 

200 PRINT 

210 PRIHT"COEFFICIENTE DI CORRELAZIONE ="; 

215 PRINT R2 
220 END 



REGRESSIONE LINEARE 

Questo programma linearizza un certo numero di dati, utilizzando il metodo 
■ei minimi quadrati. L’equazione della linea, il coefficiente di determinazione, il 
coefficiente di correlazione e l’errore standard di stima verranno stampati. 

Una volta che la linea sarà stata fissata, si potranno stimare i valori di y per 
determinati valori di x. 


Esempio: 

La tabella successiva mostra le altezze e i pesi di undici studenti maschi di un 
collegio. Si adatti una curva a questi punti. Quale potrà essere mediamente il peso 
di due studenti alti 70 e 72 pollici. 


altezza (pollici) 

71 

73 

64 

65 

61 

70 

65 

72 

63 

67 

64 

peso (libbre) 

160 

183 

154 

168 

159 

180 

145 

210 

132 

168 

141 


(1 pollice = 2,54 cm, 1 libbra = 453,6 g) 


REGRESSIONE LINEARE 

NUMERO DI PUNTI CONOSCIUTI? 11 
X,Y DEL PUNTO 1 ? ?! , 160 

X, V DEL PUNTO 2 ? 73 , 133 

X, V DEL PUNTO 3 ? 64 , 154 

:;,V DEL PUNTO 4 ? 65 , 16S 

:;,V DEL PUNTO 5 ? 61 , 153 

X,V DEL PUNTO 6 ? 70 , ISO 

X,Y DEL PUNTO ? ? 65 , 145 

X.Y DEL PUNTO 3 ? 72 , 210 

V DEL PUNTO 9 ? 63 , 132 

V DEL PUNTO 13 ? 67 , 163 

!!, V DEL PUNTO 11 ? 64 141 


F<X)=-106.731727 + < 4.34722312 * X) 

COEFFICIENTE DI DETERMINAZ1ONE< R12 )= .556263313 

COEFFICIENTE DI CORRELAZIONE 1 .745323633 

ERRORE STANDARD DI STIMA» 15.4134854 

INTERPOLAZIONE' <INSERIRE X=0 PER TERMINARE) 

X =? 73 

V = 176.513892 
X =? 72 

V * 184.608338 
X =? 0 
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Usting del programma 

10 PRINT "REGRESSIONE LINEARE" 

20 PRINT 

30 PRINT "NUMERO DI PUNTI CONOSCIUTI"; 

40 INPUT N 

99 REM - CICLO PER INSERIRE LE COORDINETE DEI PUNTI 

100 FOR 1=1 TO N 

110 PRINT "X,Y DEL PUNTO"; I; 

120 INPUT X/V 

129 REM - ACCUMULA LE SOMME INTERMEDIE 

130 J=J+X 
140 K=K+V 
150 L=L+XT2 
160 M=M+Vt2 
170 R2=R2+X*V 
180 NEXTI 

189 REM - CALCOLA IL COEFFICIENTE DELLA CURVA 

190 B=(N*R2-K*J)/(N*L-Jt2> 

200 A=(K-B*J)/N 

210 PRINT 

220 PRINT'*F<X)=";A;"+ (";B;“* X>“ 

229 REM - CALCOLA LA REGRESSIONE 

230 J=B*(R2-J*K/N) 

240 M=M-K T2/N 

250 K=M-J 
260 PRINT 
270 R2=J/M 

280 PRINT "COEFFICIENTE DI *; 

281 PRINT "DETERMINAZIONE"; 

282 PRINT "<RT2>= “;R2 

283 PRINT 

290 PRINT “COEFFICIENTE DI “; 

291 PRINT "CORRELAZIONE=";SQR(R2> 

292 PRINT 

300 PRINT "ERRORE STANDARD DI STIMA="; 

301 PRINT SQR(K/(N-2>) 

310 PRINT 

318 REM - SI CALCOLANO LE ORDINATE V DEI PUNTI DI CUI SI SONO INSERITE LE 

319 REM - ASCISSE X 

320 PRINT "INTERPOLAZIONE : "; 

321 PRINT “(INSERIRE X=0 PER TERMINARE)" 

330 PRINT "X ="; 

340 INPUT X 

349 REM - IL PROGRAMMA RIPARTE 0 TERMINA? £' RICHIESTA LH RISPOSTA DELL'UTENTE 

350 IF X=0 THEN 390 
360 PRINT "V =";A+B*X 
370 PRINT 

380 GOTO 330 
398 END 
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REGRESSIONE LINEARE MULTIPLA 


Questo programma calcola i coefficienti di una equazione lineare a variabili 
multiple utilizzando il metodo dei minimi quadrati. L’equazione ha la seguente 
forma: 

y = c 4- ape, + a 2 x 2 + ... + a„x„ 
dove: y = variabile dipendente 

c = costante 

a u a 2 ,... a n = coefficienti delle variabili indipendenti x,, x 2 ,... x". 


Verranno stampati la costante e i coefficienti. 

È necessario dare le coordinate x e y dei punti conosciuti. Una volta che è 
stata trovata l’equazione utilizzando i dati inseriti, si potranno prevedere i valori 
delle variabili dipendenti per assegnare valori delle variabili indipendenti. 

La dimensione dello statement alla linea 30 limita il numero dei dati relativi ai 
punti conosciuti che l'equazione deve contenere. È possibile variare questo limite 
secondo il seguente schema: 

30 DIM X(N+1), S(N+1), T(N+1), A(N+1, N+2) 
dove: N = numero dei dati relativi ai punti conosciuti. 

Esempio: 

La tabella sottostante mostra l’età, l’altezza e il peso di otto ragazzi. Usando 
il peso come variabile dipendente si adatti una curva ai sottostanti valori. Si stimi 
poi il peso di un bambino di sette anni alto 51 pollici. 


età (anni) 

8 

9 

6 

10 

8 

9 

9 

7 

altezza (pollici) 

48 

49 

44 

59 

55 

51 

55 

50 

peso (libbre) 

59 

55 

50 

80 

61 

21 , 

67 

58 


1 pollice = 2,54 cm 
1 libbra = 453.6 g 


REGRESSIONE LINEARE MULTIPLA 

NUMERO DI PUNTI CONOSCIUTI? 8 
# DI VARIABILI INDIPENDENTI? 2 
PUNTO 1 

VARIABILE 1 ? 8 
VARIABILE 2 ? 48 
VARIABILE DIPENDENTE? 59 
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PONTO 2 

VARIABILE 1 ? 9 
VARIABILE 2 ? 49 
VARIABILE DIPENDENTE? 
PONTO 3 

VARIABILE 1 ? 6 
VARIABILE 2 ? 44 
VARIABILE DIPENDENTE? 
PUNTO 4 

VARIABILE 1 ? 10 
VARIABILE 2 ? 59 
VARIABILE DIPENDENTE? 
PUNTO 5 

VARIABILE 1 ? 8 
VARIABILE 2 ? 55 
VARIABILE DIPENDENTE? 
PUNTO 6 

VARIABILE 1 ? 9 
VARIABILE 2 ? 51 
VARIABILE DIPENDENTE? 
PUNTO 7 

VARIABILE 1 ? 9 
VARIABILE 2 ? 55 
'VARIABILE DIPENDENTE? 
PUNTO 8 

VARIABILE 1 ? 7 
VARIABILE 2 ? 50 
VARIABILE DIPENDENTE? 


55 


50 


80 


61 


75 


67 


58 


COEFFICIENTI DELLA EQUAZIONI 
COSTANTE -15.7021277 
VARIABILE (. 1 ) 3.63035106 

VARIABILE < 2 > : .943262412 


COEFFICIENTE DI DETERMINAZIONE 
CR12>= .715697404 
COEFFICIENTE DI CORRELAZIONE 
MULTIPLA = .345989009 
ERRORE STANDARD DI STIMA = 6.42337917 

INTERPOLAZIONE<INSERIRE 0 PER TERMINARE IL PROGRAMMA) 
VARIABILE 1 ? 7 
VARIABILE 2 ? 51 

VARIABILE DIPENDENTE = 53.1702128 


VARIABILE 1 ? 0 


Listing del programma 

10 FRI UT "REGRESSI ONE LINEARE MULTIPLA" 

20 FRINT 

29 REM - FISSA I LIMITI DELLE MATRICI A X<N+1>, S<N+1>, TCN+l), A<N+l,N+2> 

30 DIM X<9>,S<9>,T<9>,A<9,10) 

40 PRINT “NUMERO DI PUNTI CONOSCIUTI' 1 ; 

50 INPUT N 

60 PRINT "# DI VARIABILI INDIPENDENTI"; 

'0 INPUT V 
30 X<1)=1 
90 FOR 1=1 TO N 
100 PRINT "PUNTO";I 
119 FOR J=1 TO V 

119 REM - INSERIRE LE VARIABILI INDIPENDENTI PER OGNI PUNTO 

120 PRINT " VARIABILE";J; 

130 INPUT XO+l) 

140 UEXTJ 
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14* REM - INSERIRE LA VARIABILE DIPENDENTE PER OGNI PUNTO 
150 PRINT "VARIABILE DIPENDENTE"; 

160 INPUT XCV+2) 

16* REM - RIEMPIRE LA MATRICE DA UTILIZZARE NELL'ADATTAMENTO DELLA CURVA 
170 POR K=1 TO V+l 
130 POR L=1 TO V+2 

130 A<K,L)=A<K,L)+X<K)#X<L> 

200 S(K)=A(K,V+2) 

210 NEXTL 
220 NEXTK 

230 S(V+2)=S(V+2)+X<V+2) 12 
240 NEXTI 

243 REM - LE ISTRUZIONI DALLA RIGA 250 ALLA RIGA 500 ADATTANO LA CURVA 
243 REM - RISOLVENDO IL SISTEMA DI EQUAZIONI LINEARI NELLA MATRICE AO 
250 POR 1=2 TO V+l 
260 T<I)=A<1,1) 

270 NEXT I 

230 FOR 1=1 TO V+l 

230 J=I 

300 IF ft(J,I)O0 THEN 340 
305 J=J+1 

310 IF J<=V+1 THEN 300 

320 PRINT "NON ESISTE UNA SOLA SOLUZIONE" 

330 GOTO 310 
340 FOR K=1 TO V+2 
350 B=A<I,IO 
360 A(I,K)=A<J,K> 

370 A(J,K)=B 
330 NEXT K 
330 Z=1/A(I,I) 

40O FOR K=1 TO V+2 
410 A<I,K>=Z*A<I,K> 

420 NEXTK 
430 FOR J=1 TO V+l 
440 IF J=I THEN 430 
450 Z=-A(J,I) 

460 FOR K=1 TO V+2 

470 A(J,K)=A(J,K)+Z*A(I,K> 

430 NEXT K 
430 NEXT J 
500 NEXT I 
510 PRINT 

520 PRINT "COEFFICIENTI DELLA EQUAZIONI:" 

525 PRINT " COSTANTE "A(l,V+2) 

530 FOR 1=2 TO V+l 

540 PRINT "VARIABILE C';I-1;“> ";A<I,V+2> 

550 NEXT I 
560 P=0 

570 FOR 1=2 TO V+l 

580 P=P+A<I,V+2)*(S<I)-T<I)*SC1VN) 

530 NEXT I 

600 R=S(V+2)-S<l)12/N 
610 Z=R-P 
620 L=N-V-1 

630 I=P/V 
640 PRINT 
650 I=P/R 

660 PRINT "COEFFICIENTE DI *; 

661 PRINT "DETERMINA2IONE" 

665 PRINT “ (R12>=";I 

670 PRINT "COEFFICIENTE DI CORRELAZIONE" 

675 PRINT "MULTIPLA =";SORCI) 

680 PRINT "ERRORE STANDARD DI STIMA ="; 

631 PRINT SQR(ABS(Z/L)) 

630 PRINT 

638 REM - STIMA DELLE VARIABILI DIPENDENTI TRAMITE VARIABILI INDIPENDENTI 

699 REM - INSERITE 

700 PRINT "INTERPOLAZIONE"; 

701 PRINT "(INSERIRE 0 PER TERMINARE IL PROGRAMMA)" 

710 P=A(1/V+2) 
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720 POR J=1 TO V 

730 FRINT "VARIABILE";J; 

?40 INPUT X : PRINT"?”X 

749 REM - TEST DI FINE PROGRAMMA 

750 IF X=0 THEN 810 
760 P=P+A<J+1,V+2)#X 
770 NEXT J 

780 PRINT "VARIABILE DIPENDENTE =";P 
790 PRINT 

799 REM - PREMERE RETURN PER ALTRI DATI 

800 GOTO 710 
810 END 



REGRESSIONE DI ORDINE ENNESIMO 


Il programma ricava i coefficienti di una equazione di ordine ennesimo, 
utilizzando il metodo dei minimi quadrati. L’equazione ha la seguente formula: 

y = c + aix + a 2 x 2 + ... a„x" 
dove: y = variabile dipendente 

c = costante 

a h a 2 , ... a„ = coefficienti delle rispettive variabili indipen¬ 
denti x, x 2 , ... x". 

Verranno stampati i coefficienti dell’equazione, il coefficiente di determina¬ 
zione, il coefficiente di correlazione e l’errore standard di stima. 

È necessario dare le coordinate x e y dei punti conosciuti. Dopo aver ricavato 
l’equazione, sarà possibile determinare i valori di y relativi a valori dati di x. 

La dimensione dello statement alla linea 30 limita il grado dell’equazione. È 
possibile variare questo limite secondo il seguente schema: 

30 DIM A(2 D+1), R(D+1, D+2), T(D+2) 

dove D = massimo grado dell’equazione. 

Esempio: 

La tabella riportata qui sotto fornisce lo spazio di arresto (considerando il 
tempo di reazione, oltre a quello di frenata) di un’auto a varie velocità. Ricavare 
dai dati una curva esponenziale e stimare lo spazio di arresto alla velocità di 55 
miglia orarie. 


miglia orarie 

20 

30 

40 

50 

60 

70 

spazio di arresto 

54 

90 

138 

206 

292 

396 


30 DIM A<5>.R(3,4>,T<4> 

READV. 


REGRESSIONE DI ORDINE ENNESIMO 


GRADO DELL'EQUAZIONE? 2 
NUMERO DI PUNTI NOTI? 6 
DEL PUNTO 1 ? 20 , 54 
X,V DEL PUNTO 2 ? 30 , 90 

X,V DEL PUNTO 3 ? 40 , 138 

X,V DEL PUNTO 4 ? 50 , 208 

X,V DEL PUNTO 5 ? 80 , 292 

X. V DEL PUNTO 6 ? 70 , 396 


COSTANTE = 41.7714472 
! GRADO DEI COEFFICIENTI =-1.09571524 
2 GRADO DEI COEFFICIENTI = .0373571531 
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COEFFICIENTE di determinazione 
rT2> = .399927959 

rOEFFICIENTE DI CORRELAZIONE = .999963979 
ERRORE STANDARD DI STIMA = 1.42094106 

INTERPOLAZIONE (INSERIRE O PER TERMINARE) 

;'= 7 55 

y= 247.274998 

X= ? 247.275 
y= 5142.34756 

;:= ? 0 


Listing del programma 

10 PRINT "REGRESSI ONE DI ORDINE ENNESIMO" 

20 PRINT 

28 REM - FISSARE I LIMITI DEL GRADO DELL EQUAZIONE AD A(2*D+1>, R(D+l,D+2>, 

29 REM - TCD+2) (DOVE D= GRADO MASSIMO DELL'EQUAZIONE) 

30 DIM A<13).R(7,8),T(8) 

40 PRINT "GRADO DELL'EQUAZIONE"; 

50 INPUT D 

60 PRINT "NUMERO DI PUNTI NOTI"; 

70 INPUT N 
80 A(1>=N 

39 REM - INTRODUCI LE COORDINATE DEI PUNTI DATI 

90 FOR 1=1 TO N 

100 PRINT "X,V DEL PUNTO";I; 

110 INPUT X,V 

118 REM - LE LINEE DALLA 120 ALLA 200 RIEMPIONO LE MATRICI CON UN SISTEMA DI 

119 REM - EQUAZIONI 

120 FOR J=2 TO 2*D+1 
130 A(J)=A(J)+Xt(J-l> 

140 NEXT J 

150 FOR K=1 TO D+l 

160 R(K,D+2)=T(IO+V*Xt(K-l> 

170 T<K>=T<K>+V*Xt(K-l) 

180 NEXT K 

190 T(D+2)=T<D+2)+Vt2 
200 NEXT I 

208 REM - LE LINEE DAL 210 AL 490 RISOLVONO IL SISTEMA DI EQUAZIONI 

209 REM - NELLE MATRICI 

210 FOR J=1 TO D+l 
220 FOR K=1 TO D+l 
230 R(J,K)=A(J+K-1) 

240 NEXT K 

250 NEXTJ 

260 FOR J=1 TO D+l 

270 FOR K=J TO D+l 

280 IF R(K,J)O0 THEN 320 

290 NEXTK 

300 PRINT "NON ESISTE UNA SOLUZIONE UNICA" 

310 GOTO 790 
320 FOR 1=1 TO D+2 
330 S=R<J,I) 

340 R(J,I)=R<K,I> 

350 R(K.I)=S 
360 NEXTI 
370 Z=l/R<J<J) 

380 FOR 1=1 TO D+2 
390 R(J,I)=Z*R(J, I) 

400 NEXTI 
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410 FOR K=1 TO D+l 
420 IF K=J THEN 470 
430 Z=-R<K,J> 

440 FOR 1=1 TO D+2 

450 RCK,I)=R<K,I>+Z*R<J,I) 

460 NEXT I 
470 NEXT K 
480 NEXT J 
490 PRINT 

495 PRINT " COSTANTE ="; 

496 PRINT R(1< D+2) 

499 REM - STAMPA I COEFFICIENTI DELL'EQUAZIONE 

500 FOR >1 TO II 

510 PRINT J;"GRADO DEI COEFFICIENTI ="; 

511 PRINT R(J+l/D+2) 

520 NEXT J 

530 PRINT 

539 REM - CALCOLO DELLA REGRESSIONE 

540 P=0 

550 FOR J=2 TO D+l 

560 P=P+R<J,D+2>*<T<J>-A<J>#T< 1 >/N> 

570 NEXT J 

580 Q=T<D+2)-T(1)t2/N 
590 Z=Q-P 
600 I=N-D-1 
620 PRINT 
630 J=P/Q 

640 PRINT "COEFFICIENTE DI 

641 PRINT "DETERMINAZIONE" 

645 PRINT "(RT2) =",J 

650 PRINT "COEFFICIENTE DI CORRELAZIONE =“; 

651 PRINT SQRCJ) 

660 PRINT "ERRORE STANDARD DI STIMA ="; 

661 PRINT SQRCZ/I) 

670 PRINT 

679 REM - CALCOLO DELLE ORDINATE V IN BASE ALLE ASCISSE X INSERITE 

680 PRINT "INTERPOLAZIONE 

681 PRINT “<INSERIRE 0 PER TERMINARE)" 

690 P=R(l/D+2) 

700 PRINT "X= 

710 INPUT X 

720 IF X=0 THEN 790 

730 FOR J=1 TO D 

740 P=P+R(J+1,D+2)#XTJ 

750 NEXT J 

760 PRINT "V= “;P 

770 PRINT 

780 GOTO 690 

790 END 
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REGRESSIONE GEOMETRICA 


Il programma adatta una curva geometrica ad una serie di coordinate, 
utilizzando il metodo dei minimi quadrati. 

Verranno stampati l’equazione, il coefficiente di determinazione, il coeffi¬ 
ciente di correlazione e l’errore standard di stima. 

È necessario dare le coordinate x e y dei punti conosciuti. Una volta adattata 
la curva, è possibile determinare il valore di y per un dato valore di x. 

Esempio: 

La tabella riportata qui sotto fornisce le pressioni di un gas misurate a vari 
volumi in un esperimento. La relazione tra pressione e volume in un gas è espressa 
dalla seguente formula: 

PV k = C 

dove: P = pressione 

V = volume 
C e K = costanti 

Questa formula può essere riscritta secondo la forma geometrica standard: 

P = CV' k 

Da notare l’esponente negativo, cosa di cui il programma deve tener conto 
nei calcoli. 

Si adatti la curva geometrica ai valori seguenti e si stimi la pressione quando il 
gas ha un volume di 90. 


volume 

56,1 

60,7 

73,2 

88,3 

120,1 

187,5 

pressione 

57,0 

51,0 

39,2 

30,2 

19,6 

10,5 


REGRESSIONE GEOMETRICA 

NUMERO DI PUNTI CONOSCIUTI? 6 * 
X.V DEL PUNTO 1 ? 56.1 , 57 

X,V DEL PUNTO 2 ? 60.7 , 51 

X,V DEL PUNTO 3 ? 73.2 , 39.2 

X-V DEL PUNTO 4 ? 88.3 , 30.2 

X,V DEL PUNTO 5 ? 120.1 , 19.6 
X,V DEL PUNTO 6 ? 187.5 , 10.5 

F(X> - 16103.7139 * Xt-1.40155091 

COEFFICIENTE DI DETERMINAZIONE 
(Rt2> = .999999206 
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COEFFICIENTE DI CORRELAZIONE = .933333603 
ERRORE STANDARD DI STIMA = 6.37531016E-04 

INTERPOLAZIONE^ <x=0 PER TERMINARE) 

X =? 90 

V = 23.3734383 
X =? 0 


Listing del programma 

10 PRINT"133EGRESSIONE GEOMETRICA" 

20 FRINT 

30 PRINT"NUMERO DI PUNTI CONOSCIUTI"; 

40 INPUT H 

39 REM - INSERIRE LE COORDINATE DEI PUNTI DATI 

100 FC'R 1=1 TO N 

110 PRINT"”/V DEL PUNTO";I; 

120 INPUT X,V 

123 REM - SI ACCUMULANO I VALORI INTERMEDI 
130 V=L0G(V) 

140 X=LOG<X) 

158 J=J+X 
160 K=K+Y 
170 L=L+Xt2 
1S0 M=M+VT2 
130 R2=R2+X*V 
200 NEXT I 

203 REM - CALCOLA E STAMPA I COEFFICIENTI DELLE EQUAZIONI 
210 B=<N*R2-K*JV<N*L-JT2> 

220 H=<K-B#JVN 
230 PRINT 

240 PRINT“F(X) =“;EXP<A);"* xr';B 
243 REM - CALCOLA LA REGRESSIONE 
250 J=B*<R2-J*K/N) 

260 M=M-K T2/N 
270 K=M-J 
280 PRINT 
230 R2=J/M 

300 PRINT"COEFFICIENTE DI 

301 PRINT"DETERMINAZIONE" 

305 PRINT"(RT2) =“;R2 

306 PRINT 

310 PRINT"COEFFICIENTE DI 

311 PRINT"CORRELAZIONE =“;SQR<R2) 

315 PRINT 

320 PRINT"ERRORE STANDARD DI 

325 F'RINT"STIMA = ", SQR<KAN-2>) 

326 FRINT 
330 PRINT" 

333 REM - STIMA LE ORDINATE V IN BASE ALLE ASCISSE X 

340 PRINT"INTERPOLAZIONE: 

341 PRINT"<X=0 PER TERMINARE)" 

350 PRINT’X ="; 

360 INPUT X 

363 REM - IL PROGRAMMA RIPARTE 0 TERMINA? SI RICHIEDE LA RISPOSTA DELL'UTENTE 

370 IF X=0 THEN 410 

380 PRINT"V =".EXP(A)*XTB 

330 PRINT 

399 REM - RIPARTIRE PER ALTRI DATI 

400 GOTO 350 
410 END 
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REGRESSIONE ESPONENZIALE 


Il programma ricava i coefficienti di una equazione per una curva esponen¬ 
ziale. L’equazione ha la seguente forma: 

bx 

f(x) = ae 

dove: a e b sono i coefficienti calcolati. 

Verranno stampati i coefficienti dell’equazione, il coefficiente di determina¬ 
zione, il coefficiente di correlazione e l’errore standard di stima. 

È necessario dare le coordinate x e y dei punti conosciuti. Una volta adattata 
la curva, è possibile determinare il valore di y per un dato valore di x. 

Esempio: 

La tabelle riportata qui sotto fornisce il numero di batteri presenti in una 
coltura in determinati istanti. 

Si adatti a questi valori una curva esponenziale e si stimi il numero di batteri 
presenti dopo sette ore. 

numero di ore 
numero di batteri 

REGRESSIONE ESPONENZIALE 

NUMERO DI PUNTI CONOSCIUTI? 

X,Y DEL PUNTO 1 ? 0 - 25 

X,V DEL PUNTO 2 ? 1 . 38 

X,V DEL PUNTO 3 ? 2 , 58 

X.V DEL PUNTO 4 ? 3 . 89 

X,Y DEL PUNTO 5 ? 4 , 135 

X,V DEL PUNTO 6 ? 5 , 206 

X,Y DEL PUNTO ? ? 6 , 315 

fl = 24.9616634 
E = .422375081 

COEFFICIENTE DI DETERMINAZIONE 
<RT2> = .999993572 

COEFFICIENTE DI CORRELAZIONE =-.999996786 
ERRORE STANDARD DI STIMA = 2.53424554E-03 

INTERPOLAZIONE: <X=0 PER TERMINARE) 

X =? ? 

V = 480.086716 
X =? 0 


0 

1 

2 

3 

4 

5 

6 

25 

38 

58 

89 

135 

206 

315 


? 
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Llstlng del programma 

10 PRI NT "REGRESSI ONE ESPONENZIALE" 

20 PRINT 

30 PRINT"NUMERO DI PUNTI CONOSCIUTI"; 

40 INPUT N 
50 J=0 
60 K=0 
70 L=0 
80 M=0 
80 R2=0 

88 REM - INSERIRE LE COORDINATE DEI PUNTI DATI 

100 FOR 1=1 TO N 

110 PRINT"X/V DEL PUNTO";I; 

120 INPUT Si, V 

128 REM - SI ACCUMULANO I VALORI INTERMEDI 
130 V=LOG<V> 

140 J=J+X 
150 K=K+V 
160 L=L+Xt2 
170 M=M+VT2 
1S0 R2=R2+X*V 
ISO HEXT I 

188 REM - CALCOLA E STAMPA I COEFFICIENTI DELLE EQUAZIONI 
200 E=< N*R2-K*J) / (N*L-JT2 > 

210 A=<K-B*J.VN 
220 PRINT 

230 print"a =";e;:p<:a) 

240 PRINT"E ="; E 

248 REM - CALCOLA LA REGRESSIONE 
250 J=B*<R2-J*K/N> 

260 M=M-K T2/N 
270 K=M-J 
280 PRINT 
280 R2=J/M 

300 PRINT"COEFFICIENTE DI 

301 PRINT"DETERMINAZIONE" 

305 PRINT"<Rt2> = ";R2 

306 PRINT 

310 PRINT"COEFFICIENTE DI 

311 PRINT"CORRELAZIONE =“;SQR(R2> 

315 PRINT 

320 PRINT"ERRORE STANDARD DI *; 

325 PRINT"STIMA = “;SQR<KAN-2>) 

326 PRINT 
330 PRINT" 

338 REM - STIMA LE ORDINATE V IN BASE ALLE ASCISSE X 

340 PRINT"INTERPOLAZIONE^ 

341 PRINT"(X=0 PER TERMINARE! 1 " 

350 PRINT"X =”; 

360 INPUT X 

368 REM - IL PROGRAMMA RIPARTE 0 TERMINA? SI RICHIEDE LA RISPOSTA DELL UTENTE 

370 IF X=0 THEN 410 

380 PRINT"V =";EXP<A)#EXP<B*X> 

380 PRINT 

388 REM - RIPARTIRE PER ALTRI DATI 
400 GOTO 350 
410 END 
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AFFIDABILITA’ DI UN SISTEMA 


Questo programma calcola l’affidabilità di un sistema operativo soggetto a 
logoramento e la percentuale di insuccesso di ogni componente. 

Esempio: 

Determinare l’affidabilità di un sistema operativo computerizzato con com¬ 
ponenti riportati nell’elenco sottostante. 


tempo di azione (h) guasto 


CPU 

terminale 

disco 

stampante 


15.000 

0,00020 

3.000 

0,00010 

3.000 

0,00015 

1.500 

0,00015 


AFFIDABILITA' DI UN SISTEMA 

(PER TERMINARE IL PROGRAMMA INSERIRE 0) 
TEMRO OPERATIVO IN ORE? 1000 
NUMERO DI COMPONENTI? 4 

COMPONENTE 1 

TEMPO MEDIO DI LOGORAMENTO? 15000 
PERCENTUALE MEDIA DI MALFUNZIONAMENTI 
? 2E-04 

COMPONENTE 2 

TEMPO tEDIO DI LOGORAMENTO? 3000 
PERCENTUALE MEDIA DI MALFUNZIONAMENTI 
? 1E-04 

COMPONENTE 3 

TEMPO «DIO DI LOGORAMENTO? 3000 
PERCENTUALE MEDIA DI MALFUNZIONAMENTI 
? 1.3E-04 

COMPONENTE 4 

TEMPO MEDIO DI LOGORAMENTO? 1500 
PERCENTUALE MEDIA DI MALFUNZIONAMENTI 
? 1.5E-04 

AFFIDABILITA' DEL SISTEMA = .135335283 
TEMPO OPERATIVO IN ORE? 0 
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Listing del programma 

10 PRINT'TFFFIDABILITA' DI UN SISTEMA" 

20 PRINT 

30 PRINT"(PER TERMINARE IL PROGRAMMA INSERIRE 0)" 

40 PRINT"TEMPO OPERATIVO IN ORE", 

50 INPUT T 

59 REM - TEST PER FINE PROGRAMMA 

60 IF T=0 THEN 230 

70 PRINT "NUMERO DI COMPONENTI"; 

80 INPUT N 
90 Z=0 

99 REM -INSERIRE I DATI PER OGNI COMPONENTI 

100 FOR 1=1 TO N 
105 PRINT 

110 PRINT'COMPONENTE";I 

120 PRINT“TEMPO MEDIO DI LOGORAMENTO"; 

130 INPUT U 

140 PRINT"PERCENTUALE MEDIA DI MALFUNZIONAMENTI" 

150 INPUT F 

159 REM - SI INCLUDE OGNI COMPONENTE NELL'AFFIBABILITA 

160 Z=Z+1/W+F 
170 NEXT I 
180 PRINT 

189 REM - CALCOLO DELL'AFFIDABILITA', STAMPA 

190 Z=EXP(-Z*T> 

200 PRINT "AFFIDABILITA' DEL SISTEMA =“;Z 
210 PRINT 

219 REM - IL PROGRAMMA RIPARTE 

220 GOTO 40 
230 END 
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TASSO MEDIO DI CRESCITA, PROIEZIONI 


Questo programma calcola il tasso medio di crescita di una ditta, successiva¬ 
mente determina proiezioni per il futuro. Il tasso medio e le proiezioni possono 
essere calcolati per ogni aspetto della ditta, come le vendite, i profili, il numero di 
impiegati o il numero di clienti. È necessario avere a disposizione precisi diagram¬ 
mi relativi ad un certo numero di anni precedenti. 

La dimensione dello statement 30 limita il numero dei diagrammi precedenti 
che si vogliono inserire. Questo numero può essere variato secondo il seguente 
schema: 

30 DIM S(N) 

dove N = numero degli anni i cui diagrammi sono noti. 

Esempio: 

I dati relativi ai prestiti di libri della Claremount County Library sono 
tabulati nel grafico riportato qui sotto. Qual'è il suo tasso medio di crescita? E 
quanti libri ci si può aspettare che darà in prestito nel suo decimo e nel suo 
ventesimo anno di servizio? 



anni 

TASSO MEDIO DI CRESCITA/ PROIEZIONI 

NUMERO DI ANNI DIAGRAMMATI STABILITI? 3 
DIAGRAMMA ; ANNO 1 ? 26 
ANNO 2 ? 35 
ANNO 3 ? 42 
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ANNO 4 ? 45 
ANNO 5 ? 41 
ANNO 6 ? 51 
ANNO 7 ? 60 
ANNO 8 ? 6* 
ANNO 9 ? 74 

TASSO MEDIO DI CRESCITA 


11.88 


CINSERIRE 0 PER TERMINARE) 

VENDITE PREVISTE PER L'ANNO? 10 

= 31.29 

VENDITE PREVISTE PER L'ANNO? 20 

= 249.88 

VENDITE PREVISTE PER L'ANNO? 0 


Listing del programma 

10 PRIHT"ITT ASSO MEDIO DI CRESCITA,"; 

15 PRINT" PROIEZIONI" 

20 PRINT 

28 REM - SI ASSEGNA LA DIMENSIONE DELLA MATRICE S IN BASE AL NUMERO DI ANNI 

29 REM - DI CUI SI CONOSCONO I DATI 

30 DIM 3(20) 

40 PRINT“NUMERO DI ANNI DIAGRAMMATI"; 

45 PRINT" STABILITI"; 

50 INPUT N 
80 FOR 1=1 TO N 
70 IF IM THEN 100 
30 PRINT"DIAGRAMMR: ANNO";!; 

30 GOTO 110 

100 PRINT" ANNO";I; 

110 INPUT S<I) 

120 NEXT I 

129 REM - INIZIALI2ZA LE VARIABILI PER IL PRIMO ANNO 

130 T=LOG(S<1)) 

140 V=0 

149 REM - CICLO PER GLI ANNI RIMANENTI DEL PERIODO 

150 FOR 1=2 TO N 
160 L=L0G<3<I>> 

170 T=T+L 

180 V=V+<I-1)*L 
190 NEXT I 

139 REM - SI CALCOLO IL TASSO MEDIO DI CRESCITA 
200 A=6#C2*V/<N-1)-T)/<NV<N+1> 

210 G=EXP(A)-1 

219 REM - ARROTONDA, STAMPA 

220 PRINT "TASSO MEDIO DI CRESCITA ="; 

225 PRINT INT(G*10000+.5)/100,"X" 

230 PRINT 

239 REM - SI CALCOLA IL FATTORE ANNUO DEL TASSO DI CRESCITA 

240 S=EXP(T/N-A*CN-l)/2) 

250 PRINT"(INSERIRE 0 PER TERMINARE)" 

259 REM - INSERIRE IL NUMERO DI ANNI 

260 PRINT "VENDITE PREVISTE PER L'ANNO"; 

270 INPUT VI 

279 REM - TEST PER FINE PROGRAMMA 

280 IF V1=0 THEN 320 

239 REM - CALCOLA IL DIAGRAMMA DELLE VENDITE PREVISTE 
290 S1=S*(1+G)T(V1-1) 

299 REM - ARROTONDAMENTO, STAMPA 

300 PRINTTABC28);"=“; 

305 PRINTINT<S1*100+.5V100 

309 REM - RIPARTE PER NUOVI DATI 

310 GOTO 260 
320 END 
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TABELLA DI AMMORTAMENTO 
DI UN ONERE 


Questo programma mette in tabulato l’ammontare annuo dell’ammorta- 
mento. È possibile usare il metodo della somma delle cifre o qualunque metodo 
con il saggio percentualmente decrescente. È necessario conoscere il prezzo 
dell’acquisto (valore iniziale), il valore dell’indennità di recupero al termine del 
periodo di ammortamento e la vita dell’articolo che si desidera ammortizzare. Per 
poter sviluppare il problema con il metodo dell’ammortamento con il saggio 
percentualmente calante, è necessario conoscere il metodo percentuale. 


Esempi: 

La Miracle Corporation ha messo un nuovo tetto in un capannone di sua 
proprietà per una spesa di $ 27.000. La ditta ritiene di doverlo sostituire tra nove 
anni. Quale sarà l’ammortamento annuo utilizzando la somma delle cifre? 

Una banca edifica una nuova sede di uffici spendendo 1,2 milioni di dollari. 
Determinare la tabella di ammortamento dell’onere, utilizzando una percentuale 
di saggio decrescente del 150% con 30 anni di vita. Si presupponga un valore di 
indennità di recupero di 250.000 dollari. 


TABELLA DI AMMORTAMENTO DI UN ONERE 

PREZZO DI ACQUISTO? 27000 
VALORE RISPARMIATO? 0 
DURATA IN ANNI? 9 
INSERIRE 1 PER SOMMA DI CIFRE, 

2 PER BILANCIO IN DIMINUZIONE? 1 
TASSA DI AMMORTAMENTO 'PER SOMMA 
DI CIFRE' 

PREZZO * 27000 
VALORE RISPARMIATO * 0 
AMMORTAMENTO NETTO $ 27000 
DURATA 9 ANNI . 


ANNO AMMORTAMENTO BILANCIO 

1 5400 21600 

2 4800 16800 

3 4200 12600 

4 3600 9000 

5 3000 6000 

6 2400 3680 

7 1800 1800 

8 1200 600 

9 600 0 
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ALTRI DAI 1 <1=SI, 0-NO>? 1 

SS BM SST 
S2 SMS5& a 

metodo I !jf 0 ^| R 1 |f AMMORTAMENTO 'PER 

BILANCIO IN DIMINUZIONE' 
PREZZO L. 1200000 
VALORE RISPARMIATO L. 250000 
AMMORTAMENTO NETTO L. 550000 
DURATA 30 ANNI 
METODO 150 fi 


ANNO 

AMMORTAMENTO 

BILANCIO 

1 

47500 

902500 

2 

45125 

857375 

3 

42868.75 

314506.25 

4 

40725.31 

773780.94 

5 

38689.05 

735091.39 

6 

36754.59 

693337.3 

7 

34916.86 

663420.44 

8 

33171.02 

630249.42 

9 

31512.47 

598736.95 

10 

29936.85 

563300.1 

11 

28440 

540360.1 

12 

27018 

513342.1 

13 

25667.1 

437675 

14 

24383.75 

463291.25 

15 

23164.56 

440126.69 

16 

22006.33 

418120.36 

17 

20906.02 

397214.34 

18 

19360.72 

377353.62 

19 

18867.63 

358435.94 

20 

17924.3 

340561.64 

21 

17028.08 

323533.56 

22 

16176.68 

307356.83 

23 

15367.84 

291989.04 

24 

14599.45 

277389.59 

25 

13869.48 

263520.11 

26 

13176.01 

250344.1 

27 

12517.2 

237826.9 

28 

11891.34 

225935.56 

29 

11296.78 

214638.78 

30 

10731.94 

203906.84 


ALTRI DATI <1=SI, 0=NO>? 0 


Listing del programma 

10 PRI NT ".IT ABELL A DI AMMORTAMENTO DI UN ONFRF " 

20 PRINT 

23 REM - INSERIRE IL VALORE INIZIALE E ARROTONDARE AL CENTESIMO 
30 PRINT "PREZZO DI ACQUISTO"; 

40 INPUT V 

50 V=INT<V#100+.5V100 

59 REM - INSERIRE IL VALORE FINALE E ARROTONDARE AL CENTESIMO 

60 PRINT "VALORE RISPARMIATO"; 

70 INPUT S 
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sa S=INT<S*100+.5)2100 

SS REM - CALCOLA LH SOMMA DA AMMORTARE 

SO D=V-S 

SS REM - INSERIRE DURATA AMMORTAMENTO 
100 PRINT "DURATA IN.ANNI"; 

110 INPUT V 

119 REM - SCEGLIERE IL METODO DI AMMORTAMENTO 

120 PRINT "INSERIRE 1 PER SOMMA DI CIFRE/“ 

125 PRINT "2 PER BILANCIO IN DIMINUZIONE"; 

130 INPUT X 

140 IF X=2 THEN 450 

150 IF XOl THEN 120 

153 REM - METODO 'PER SOMMA DI CIFRE' 

159 REM - RI E' IL TOTALE AMMORTATO CUMULATIVO 

160 R1=0 
170 H=1 

260 PRINT " 17TASSA DI AMMORTAMENTO 'PER SOMMA" 

265 PRINT "DI CIFRE'" 

270 PRINT TAB(17>"PREZZ0 4",V 

230 PRINT TAB(5)"VALORE RISPARMIATO *";S 

290 PRINT TAB<5)"AMMORTAMENTO NETTO t", 

291 PRINT V-S 

300 PRINT TAB(13);"DURATA";V;"ANNI" 

310 PRINT 

320 PRINT "ANNO AMMORTAMENTO"; 

321 PRINT " BILANCIO" 

322 N=ll 

325 FOR 1=1 TO V 

326 REM - CONTROLLO DI RIEMPIMENTO SCHERM0<23 RIGHE) 

327 IF N220=INT(N/20) THEN GOSUB 800 

329 REM - CALCOLA L'AMMORTAMENTO ED ARROTONDA AL CENTESIMO 

330 R=2*D#<V-H-1V<<V+1)*V) 

340 R=INT<R*100+.5)2100 

349 REM - ACCUMULA L'AMMORTAMENTO 

350 R1=R1+R 

359 REM - CALCOLA IL BILANCIO DA AMMORTARE 

360 B=D-R1 

369 REM - TEST PER AMMORTAMENTO COMPLETATO 

370 IF B>=0 THEN 410 
380 R1=R1+R 

400 B=0 

410 PRINTI.• RTAB(22)B 
420 N=N+1 
430 NEXT I 
440 GOTO 700 

443 REM - METODO 'PER BILANCIO IN DIMINUZIONE' 

449 REM - INSERIRE IL TASSO DI DIMINUZIONE PERCENTUALE DEL BILANCIO 

450 PRINT "METODO IN X"; 

460 INPUT M : PRINT"?"M 

469 REM - CONVERTE LE PERCENTUALI IN DECIMALI 

470 M=M2100 

479 REM - N CONTA LE LINEE STAMPATE IN OGNI PAGINA 
439 REM - R E' IL TOTALE DA AMMORTARE 
490 R=D 

570 PRINT TAB<8);"TASSA DI AMMORTAMENTO 'PER" 

575 PRINTTABC12)"BILANCIO IN DIMINUZIONE'" 

580 PRINT TAB(17)"PREZZO L.";V 

590 PRINT TABC5)"VALORE RISPARMIATO L.“;S 

600 PRINT TAB<5>"AMMORTAMENTO.NETTO L."; 

601 PRINT V-S 

610 PRINT TAB<13);"DURATA“;V;“ANNI" 

620 PRINTTABC13);"METODO “;M*100;"X" 

630 PRINT 

640 PRINT "ANNO AMMORTAMENTO"; 

641 PRINT " BILANCIO" 

642 PRINT 

643 N=ll 

645 FOR 1=1 TO V 

649 REM - CALCOLA L'AMMORTAMENTO E ARROTONDA AL CENTESIMO 
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650 R^INTCCRfcM/VmOG+.SVlGA 

659 REM - ACCUMULA IL BILANCIO RIMANENTE 

660 R=R-R1 

670 FRUITI, RI TAB<22)R 
675 N=N+1 

577 REM - CONTROLLO DI RIEMPIMENTO SCHERMO<20 RIGHE) 

680 IF N/20=INT<N/20) THEN GOSUB S00 
690 NEXT I 
700 FRINT 

709 REM - IL PROGRAMMA RIPARTE 0 TERMINA? 

710 PRINT "ALTRI DATI <1=SI, 0=NO)"; 

720 INPUT X PRINT”?”X 

730 IF X=1 THEN 20 
740 END 

800 PRINT"RE QUALSIASI TASTO PER CONTINUARE 
310 GET R» 

320 IF RJ="" THEN 810 

330 print" iMCHBKHiroswraiiHWWWMWWiWNNO ammortamento bilancio 

340 RETURN 
READV. 
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STAMPA DI ASSEGNI 


Questo programma stampa un assegno. È necessario inserire data, ammon¬ 
tare e beneficiario dell’assegno. Il programma traduce la data e l’ammontare in 
parole e li stampa, posizionandoli nella maniera voluta, sull’assegno. 

Si consideri il programma listato nel seguito come un esempio di programma 
che scrive assegni. Gli assegni generalmente hanno infatti una spaziatura diversa 
da quella prevista dal programma seguente. Il metodo per tradurre le cifre in 
parole è generalmente applicabile. La spaziatura può essere variata in funzione 
del tipo di assegno da stampare. 

I comandi per aprire o chiudere il flusso dei dati alla stampante sono situati 
rispettivamente agli statements numero 250 e 625. Lo statement PRINT tra 250 e 
625 non ha bisogno di essere sostituito con PRINT #, quando al 250 si usa il 
comando CMD. 

Quando il programma chiede: PRONTO A STAMPARE L’ASSEGNO?, ciò 
significa che esso sollecita l’utente ad inserire un assegno in bianco nel dispositivo 
stampante. L’assegno sarà posizionato una linea più in su rispetto alla linea in cui 
la data deve essere stampata. 

Quando l’assegno è stato inserito, è sufficiente premere il tasto RETURN 
(non è necessario nessun altro dato in entrata), e l’assegno verrà stampato. 

Esempio: 

Tra gli assegni che la Miracle Corporation deve scrivere; uno, per Jackson, è 
di L. 4.975.890, un altro, per Freida Alexander, è di L. 103.750. Stampare gli 
assegni usando il computer. 


STAMPO DI ASSEGNI 
DATA (GGMMAA)? 30877 

PER FINIRE IL PROGRAMMA INTRODUCI 'FINE'' 
NOME DEL BENEFICIARIO? GRUPPO EDITORIALE 

COGNOME DEL BENEFICIARIO? JACKSON 

AMMONTARE DELL'ASSEGNO? 4957500 

SIETE PRONTI A STAMPARE L'ASSEGNO 
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HEAVENLY BANK 

EMERYVILLE OFFICE 

4120 ASHBY AVENUE 
EMERYVILLE. CA 94601 


NO. 328 

3 LUGLIO, 1980 

L.KBWKHsB 

4975890 

PAY TO THE ORDER OF 

GRUPPO EDITORIALE JACKSON 


QUATTRO MILIONI 

'IOVECENTÙSETTANTACINGUEMILA OTTOCENTONOVANTA LIRE 

MIRACLE CORPORATION 

1111 COUNTRY ROAD 

COUNTRYVILLE. CA 94132 



1328252158 


NOME DEL BENEFICIARIO? FREIBA 
COGNOME BEL BENEFICIARIO? ALEXANDER 
AMMONTARE BELL ASSEGNO? 103750 
SIETE PRONTI H STAMPARE L'ASSEGNO 


HEAVENLY BANK 

EMERYVILLE OFFICE 
4120 ASHBY AVENUE 
EMERYVILLE. CA 94601 


PAY TO THE ORDER OF FREIDA ALEXANDER 


CENTOTREMILA SETTECENTÙCINQUANTA LIRE 


MIRACLE CORPORATION 

1111 COUNTRY ROAD 
COUNTRYVILLE. CA 94132 


1328262168 


NO. 382 

3 LUGLIO, ISSO 

l . mv-xw-w 

103750 


NOME BEL BENEFICIARIO? FINE 


Listing del programma 

i-j c RIn 7 ’i'hMPfl LI riSSEGNI 1 
.-RINT 

i.'lr ’Ji l'lH$ \ i?. 1 LI fifl* L i eL ) 

LO LhTn ^hG", 'LUE ’'7RE :i .- •'QUATTRO" 
li LATA‘‘CINQUE '.• " ££I *'/ '*SETTE 11 .■ ’*OTTO' 1 
4L Ln7A'*NOVE”. LIECI 11 , -i JMLICI “. 1 LCDICI ** 
4i Lh 7A■*7F.ELICI '*'QUA 71 jF.LICI** 

-fC jKi7R ,, QUIHLICI'S •' SELICI ' 

50 LA7A‘ , i)ICIhSS£77E *i “LICI07Tj‘‘ 
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3i x'H7h"EiCiliNM0VE\ ‘VENTI 11 . ‘TRENTA" 

30 Jh 7A'*GuAR AhTA" . 1 ’l i ML.UFUTA" / 3£SSRn7A ' 

si Dh Ih"iCTTAriVA". ■ 0 r~r!'i7ri ". NOVANTA' 

. 0 Dh7h' l GEHNAI0'‘/"FEBBRAIO". MARZO 1 
. I ihTA“ARF;ILE';"MAGGIO ".■ 'GIUGNO".- "lcGì-IC" 

38 DATA "AGOSTO" / "'.■•£ i i EriBRE 1 1 ‘OT iGBF.E" 
il DATA' 1 NOVEMBRE" / 1 DICEMBRE" 

ss FGRI=l702? READA*TI;■ MEXT FORnl TCie READM-T».1/ : nEXT 

_-te REM — INSERIRE LM DATA ScNlA LE VIRGOLE. OlORH- E ANNI DEVONO CONTENERE 

39 SEM - DUE CIFRE 

SO FRINÌ "DATA •.GOMMAA>"; 

100 INPUT D 

iiù FRI NT 'PER FINIRE li. PROGRAMMA ", 

Ili ARINT ’ INTRODUCI FINE " 
iiO r'RINT NCflE DEL BENEFICIARIO''/ 

I _'0 iNFUT -t 

139 REM - FINE PROGRAMMA? 

HO IF Ff="FINE" THEN 790 
! jG PRINT "COGNOME DEL BENEFICIARIO*'/ 
ico input -t 

ITO PRINT 'AMMONTARE DELL'ASSEGNO''/ 
iteO iNFUT A : PRIN1 

138 REM — INSERIRE UNA ASSEGNO IN BIANCO NELLA STAMPANTE/ E FREMERE UN TASTO 

139 REM - GUALCIRSI.. GuANDO SIETE PRONTI 

190 FRINT "SIETE FRONTI H STAMPARE L'ASSEGNO"/ 

DOO GET CT IF ZT=’"‘ THEN GOTO EOO 

cui r'RINT 

EOE FRINT 

iOs r'R I NT 

E04 FRINÌ 

EO9 REM - SPEZZA II NUMERO DELLA LATA INTRODOTTA IN GIORNO/ MESE/ ANNO 

ElO D2=INTCD. '1O0O0I 

EEÓ D1=I NT < <. D-DE# 1OOOO >/ 1OO ; 

ESO D3= I NT < D- <D£* 100+D1 ) * 100 > 

E35 D3=D3+1900 

239 REM - RAGGIUNGE IL MESE OPPORTUNO NELLA TABELLA DATI 
E40 X*=M$(D1> 

250 0PEN4/4CMD4 
E59 REM - STAMPA LA DATA 
260 PRINT TAB<E0>,D2;Nf;'',";D3 
265 PRINT 

269 REM - STAMPA L AMMONTARE DUE VOLTE.. LA PRIMA VOLTA NEL RETTANGOLO SCURO 

270 PRINT TAB<24>;“L.d";A,"S" 

ES0 PRINT TAB(26)/A 

290 PRINT 

300 PRINT F*/" "/Lt 
310 PRINT 

319 REM - L'AMMONTARE DELL'ASSEGNO £' CORRETTO ' 

3E0 IF A<=0 THEN 770 
330 A1=A 

339 REM - L'AMMONTARE £' IN MILIONI ? 

340 Nl=INT<Al,'i£6> 

345 N3=N1 

349 REM - NON SI POSSONO STAMPARE ASSEGNI SUPERIORI A L. 999.999.999 

350 IFN1399THENA2=N1•N3=N1 1 GOSUB 1449'N1=A2:IFN1=0THEN380 
355 IF Nl=l THEN PRINT “UN MILIONE " OOTÙ390 

360 IF N1=0 THEN 390 
370 GOSUB 640 
3S0 PRINT " MILIONI " 

390 R1=R1-N3#1E6 

399 REM - L'AMMONTARE £' IN MIGLIAIA ? 

400 N1=INT<A1/1£3) 

405 N3=N1 

410 IF N1=0 THEN 440 

413 IF NI>99 THEN R2=N1 : N3=N1 ■ GOSUB’1449 N1=A2 

415 IF Nl=l THEN PRINT "MILLE “/ GOTO440 
428 GOSUB 640 
430 PRINT “MILA "/ 

440 Al=hl-N3#1E3 

449 REM - L AMMONTARE E IN CENTINAIA? 
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450 HÌ=Hl , 

4&0 GOSUB 1449 
4 70 A1=A2 

519 REM - £ LIRE' 

520 IF hKI THEN 570 

550 Al=INT<Al#100+.5>/100 
555 N1=A1 GOSUB640 

559 REM - LE LIRE SONO STAMPATE IN FORMA NUMERICA 

560 PRINT " LIRE" 

569 REM - SPAZIO PER L USCITA DALL ASSEGNO 

570 PRINT 
530 PRINT 
390 PRINT 
£00 PRINT 
£10 PRINT 
£20 PRINT 

£25 REM 7*4 CL0SE4 
SS0 RESTORE GOTO 120 

SS9 REM - SOTTOPROGRAMMA PER OTTENERE LH TRASCRIZIONE DELLA SOMMA IN LETTERE 
£40 IF NI 321 THEN 730 
£50 RESTORE 

£51 KJ=Af((Nl-20;/10+20> 

£70 PRINT X$; 

£S0 A3=N1-INT<H1/10>*10 

£90 IF A3=0 THEN 7£0 

£91 IF A3=l OR A3=S THEN PRINT ,I II"; 

711 X*«A*<A3> 

720 GOTO 750 
736 REM 
731 X**A*<N1> 

750 PRINT X*J 

759 REM - FINE DEL SOTTOPROGRAMMA 
7S0 RETURN 

770 PRINT , T**###VUOTO*#***” 

7S0 GOTO 570 
790 END 

1449 REM 

1450 N2=INT<A2.'100> 

1455 IF N2=l THEN 1500 
1460 IF N2=0 THEN 1519 
1490 N1=H2 ; GOSUB 640 


1500 PRINT "CENTO"; 
1510 A2=A2-N2*100 
1519 RETURN 
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COSTO DI UNA RICETTA 


Questo programma calcola il costo ed il costo per servizio di una ricetta. Per 
ogni ingresiente è necessario dare il prezzo dell’acquisto, l’ammontare dell’acqui¬ 
sto, la quantità usata nella ricetta e il numero di unità di ricette per unità di 
acquisto. 


Esempio: 

Qui sotto è riportata una ricetta per un dolce alla fragola. Si calcolino il costo 
della ricetta e il costo per servizio. Quale sarà il costo per servizio, se il dolce è di 
dodici porzioni? Vengono forniti i fattori di conversione e i prezzi degli ingredien¬ 
ti. 


Dolce alla fragola-8 porzioni 

3 tazze di farina 2,5 tazze/libbra $ 1.59 5 libbre 

0,43 4 once 
1.24 5 libbre 
0,29 1 libbra 
1.49 1 libbra 
0,75 1 dozzina 
0,40 1 quart 
0,49 1 porzione 
0,59 1/2 porzione. 


COSTO DI UNA RICETTA 
NUMERO DI INGREDIENTI? 9 
INGREDIENTE 1 ' 

COSTO UNITARIO PER QUANTITÀ' IN VENDITA? 1.59 
NUMERO DI UNITA' IN VENDITA? 5 
UNITA' DI MISURA PER LA RICETTA? 2.5 
UNITA' DI MISURA RICHIESTE 
PER LA RICETTA 
? 3 

INGREDIENTE 2 

COSTO UNITARIO PER QUANTITÀ' IN VENDITA? .43 
NUMERO DI UNITA' IN VENDITA? 4 
UNITA' DI MISURA PER LA RICETTA? 15 
UNITA' DI MISURA RICHIESTE 
PER LA RICETTA 
’ 3.25 

INGREDIENTE 3 : 

COSTO UNITARIO PER QUANTITÀ' IN VENDITA? 1.24 

NUMERO DI UNITA' IN VENDITA? 5 

UNITA' DI MISURA PER LA RICETTA? 2 

UNITA' DI MISURA RICHIESTE 

PER LA RICETTA 

- .25 


3+ 1/4 cucchiai da te di lievito in polvere 15 cucchiai/oncia 


1/4 tazza di zucchero 
1+ 1/4 cucchiaio da te di sale 
1/2 tazza di burro 
1 uovo 

2/3 di tazza di latte 

3 porzioni di fragole 

1/2 porzione di panna montata 


2 tazze/libbra 
6 cucchiai/oncia 
2 tazze/libbra 
12 dozzina 
4 tazze quart 
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COSTO UNITARIO PER QUANTITÀ' IN VENDITA? 
Numero di unita' in vendita? i 
UNITA' DI MISURA PER LA RICETTA? 36 

jnita di misura richieste 

PER LA RICETTA 
■ 1.25 


.29 


INGREDIENTE 5 

COSTO UNITARIO PER QUANTITÀ' IN VENDITA? 1.49 

NUMERO DI UNITA' IN VENDITA? 1 

UNITA' DI MISURA PER LA RICETTA? 2 

JNITA' DI MISURA RICHIESTE 

PER LA RICETTA 

? .5 


INGREDIENTE 6 

COSTO UNITARIO PER QUANTITÀ' IN VENDITA? .75 
NUMERO DI UNITA' IN VENDITA? 1 
UNITA' DI MISURA PER LA RICETTA? 12 
UNITA' DI MISURA RICHIESTE 
PER LA RICETTA 
? 1 


INGREDIENTE 7 

COSTO UNITARIO PER QUANTITÀ' IN VENDITA? .4 

NUMERO DI UNITA' IN VENDITA? 1 

UNITA' DI MISURA PER LA RICETTA? 4 

UNITA DI MISURA RICHIESTE 

PER LA RICETTA 

? ■6666667 


INGREDIENTE 8 : 

COSTO UNITARIO PER QUANTITÀ' IN VENDITA? .49 

.NUMERO DI UNITA IN VENDITA? 1 

UNITA DI MISURA PER' LA RICETTA? 1 

UNITA DI MISURA RICHIESTE 

PER LA RICETTA 


INGREDIENTE 3 

COSTO UNITARIO PER QUANTITÀ IN VENDITA? .53 

NUMERO DI UNITA' IN VENDITA? 1 

UNITA DI MISURA PER LA RICETTA? 1 

UNITA' DI MISURA RICHIESTE 

PER LA RICETTA 

I 1 


NUMERO DI PORZIONI? 8 

COSTO TOTALE PER UNA RICETTA =* 3 
COSTO PER PORZIONE =$ .38 

PIU' 0 MENO PORZIONI<1=SI/ 0=NO>? 1 
NUMERO DI PORZIONI? 12 

COSTO TOTALE PER UNA RICETTA =* 3 

COSTO PER PORZIONE =t .25 

PIU' 0 MENO PORZIONI<l=SI, 0=NO>? 8 


Listing del programma 

IO PRINT"XÙSTO DI UNA RICETTA" 
.5 FRINT 
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i 8 REM - LE ISTRUZIONI DALLA RIGR SO RLLR RIGA 180 
13 REM - CI URTI DR PARTE BELL'UTENTE 
CO FRINT"NUMERO BI INGREDIENTI", 

SO INPUT N : PRIHT“?"N 

SS REM - CICLO PER LR RICHIESTA DI DATI PER OGNI I 


RICHIEDONO 


NGREBIENTE 


40 INPUT H 


50 FRINT 

SO PRINT "INGREDIENTE",I," " 

’O PRINT "COSTO UNITARIO PER QUANTITÀ" IN VENDITA”, 
SO INPUT C 

SO PRINT "NUMERO DI UNITA' IN VENDITA"; 

.OC INPUT U 

,10 PRINT "UNITA DI MISURA “J 
Ili PRINT "PER LR RICETTA", 


L'INTRODUZIONE 


.SO INFUT F 

ISO PRINT "UNITA DI MISURA RICHIESTE" 
;Sl PRINT "PER LA RICETTA" 


140 INFUT R 

143 SEM - COSTO TOTALE DI 


OGNI INGREDIENTE PER LA QUANTITÀ' USATA 


150 P=P+C/U/F#R 
loó NEIìT I 
loS PRINT 

ITO PRINT “NUMERO DI PORZIONI"; 

ISO INPUT 3 
ISO PRINT 

•95 rem - ARROTONDAMENTO DEL COSTO AL 
■fin PRINT "COSTO TOTALE PER 


SOI PRINT "UNA RICETTA =1 ", 

S05 PRINT INT<P*100+.5>,'100 
SIO PRINT "COSTO PER PORZIONE =* 
SIS PRINT INT;P,'S*ì00+.5>/100 
SSO PRINT 

SSS REM - CALCOLO DI ALTRI PREZZI 
SSO PRINT "PIU D MENO PORZIONI", 
SS: PRINT "ll-SI, 0=N0>”; 

S40 INPUT N 

SSO IF N=i THEN ire 

SSO END 


PER 


CENTESIMO E STAMPA DEL RISULTATO 


PORZIONE 


OPZIONE 

Dopo essersi familiarizzati con le operazioni di questo programma, è possibi¬ 
le abbreviarlo, inserendo le informazioni richieste per ogni ingrediente in un’unica 
linea. I necessari cambiamenti di programma sono elencati nell’esempio seguente. 

Esemplo: 

Calcolare il costo per porzione del dolce alla fragola descritto nell’esercizio 
precedente, nel caso questo sia servito senza crema. 

3CSTC DI UNA RICETTA 

NUMERO DI INGREDIENTI? S 

INGREDIENTE 1 
!• 1.53 , 5 . Z.5 , 3 
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INGREDIENTE 2 

■’ .43 4 .. 15 .• 3.25 

INGREDIENTE 3 : 

1.24 . 5 .. 2 , .25 

INGREDIENTE 4 : 

•• .23 . 1 ■ 36 . 1.25 

INGREDIENTE 5 
? i,4S , 1 , 2 , .5 

INGREDIENTE 6 
? .35 . 1 , 12 . 1 

INGREDIENTE 7 
? .4 . 1 ■ 4 . .6666667 

INGREDIENTE 3 
? •43 .1.1/3 

NUMERO DI PORZIONI? 3 

COSTO TOTALE PER UNA RICETTA =* 2.41 

COSTO PER PORZIONE =S .3 

PIU' 0 MENO PORZIONI<1=SI. 0=NO>? 12 


OB-zione' 

1 REM OPZIONE 55-70 
13 PRINT"X0ST0 DI UNA RICETTA" 


50 PRINT 

35 REM - INSERIRE C.U.F.R 

56 REM - DOVE C=C0ST0 UNITARIO PER QUANTITÀ' IN VENDITA 

57 REM - U=NUMERO DI UNITA' IN VENDITA 

58 REM - F=UNITA' DI MISURA PER LA RICETTA 

53 REM - R-UNITA' DI MISURA RICHIESTE PER LA RICETTA 

60 PRINT "INGREDIENTE”;IJ“=" 

70 INPUT C.U.F.R 

143 REM - COSTO TOTALE DI OGNI INGREDIENTE PER LA QUANTITÀ' USATA 


260 END 
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CONTROLLO O RILEVAMENTO DI MAPPA 

Dovuto alla cortesia di; Robert Irving; Northridge California 


Questo programma calcola l’errore di chiusura e l’area di un appezzamento 
di terreno del quale è accessibile la poligonale del perimetro. Il programma calcola 
anche quanto a nord e a est è lontana la fine di una poligonale aperta rispetto alle 
sue origini (distanza percorsa verso il nord e distanza percorsa verso l’est). Le 
coordinate dell’origine possono essere inserite per una poligonale aperta. I valori 
negativi delle distanze verso nord e verso est indicano il sud e l’ovest, rispetto alle 
coordinate 0,0 dell’origine del rilevamento. 

I singoli lati della poligonale possono essere sia segmenti che archi di circon¬ 
ferenze. Per calcolare la poligonale, è necessario conoscere la direzione e la 
lunghezza di ogni lato. Per ciascun lato curvo, si debbono conoscere il raggio, la 
direzione della corda e la sua lunghezza (o il raggio, la misura dell’arco e la 
tangente). 

N 



i Schema per la numerazione dei quadranti. Gli 
: angoli sono misurati partendo dalla linea NORD 

S SUD. 

Per un rilevamento chiuso, si prende ogni intersezione dei lati come punto di 
partenza, e il numero delle linee e degli archi, iniziando con uno, in senso orario 
intorno al perimetro. Se qualche arco è uguale o superiore a 180 gradi, lo si deve 
dividere in archi più piccoli, ciascuno inferiore ai 180 gradi. 

Per convenzione i topografi misurano le direzioni dall’asse nord-sud. Questa 
convenzione fu stabilita prima dell’uso dei computers, così questa funzione 
trigonometrica può essere rilevata facilmente su tavole che non superano i 90 
gradi. Per ciascun lato è necessario inserire il numero di quadrante e i gradi, i 
minuti e i secondi est o ovest rispetto all’asse nord-sud. Il programma indica la 
direzione del lato (ad esempio SO = Sud Ovest), e converte il quadrante, i gradi, 
ecc. in un angolo azimutale. L’angolo viene misurato dal nord per 360 gradi. 
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Un lato curvo, o arco, è definito da due lati ausiliari, ciascuno dei quali è il 
raggio dell’arco stesso. La direzione del primo lato ausiliario è la direzione del 
raggio dal primo estremo incontrato dell’arco al centro stesso. È possibile calcola¬ 
re questa direzione mediante la direzione della tangente dell’arco in quel punto, in 
quanto il raggio è perpendicolare alla tangente. La mappa può mostrare la 
direzione della tangente. In caso contrario, è possibile calcolarla aggiungendo alla 
direzione della corda un angolo, il cui valore è metà dell’angolo formato dall’arco, 
così come mostrato in figura. 



La direzione del secondo raggio va dal centro dell’arco all’altro estremo. Il 
valore di questa lunghezza viene definito con un numero negativo, per segnalare al 
computer che questo lato e il precedente non sono lati del perimetro, ma lati 
ausiliari di un arco. 

Il programma chiede che la distanza e la direzione vengano espressi come 
numeri. I lati vanno inseriti in gruppi di dieci (o meno). Dopo l’ultimo inserimento 
nel gruppo, è possibile correggere ciascun lato. È necessario inserire entrambi i lati 
ausiliari dello stesso arco nello stesso gruppo. Per terminare un gruppo, è possibile 
inserire la direzione O, e inserire gli altri lati in gruppi successivi. 

Quando un gruppo è stato corretto, per quel gruppo viene stampata una 
tabella poligonale. In questa si potranno leggere ciascun numero di lato, la sua 
direzione, l’angolo azimutale e la distanza, oltre alla distanza incrementale e 
cumulativa percorsa verso nord e verso est. La distanza cumulativa percorsa verso 
nord e verso est risultante dopo l’ultimo lato di una rilevazione chiusa permette di 
stabilire l’errore di chiusura. L’angolo dell’arco, il raggio, l’area del settore, la 
lunghezza della corda e quella della tangente sono stampati tra i due lati ausiliari 
di ciascun lato curvo. 

Dopo la stampa dell’ultimo lato di una rilevazione chiusa, verrà stampata 
l’area dell’appezzamento. Il calcolo dell’area risulta estremamente accurato, se si 
verificano le seguenti condizioni: 
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1° l’errore di chiusura è piccolo (0,5 cm per un lotto in cui si prevede una 
abitazione) 

2° l’area è sufficientemente piccola in modo tale che la curvatura terrestre sia 
non significativa. Nel caso di aree superiori a parecchie decine di chilometri 
quadri, è necessario tener conto anche di questo ultimo fattore 


Esempio: 

La seguente figura mostra un lotto con un lato curvo. I numeri dei lati sono 
segnati con un cerchietto. Le direzioni e le distanze sono assegnate per ogni lato. 
Calcolare l’errore di chiusura e l’area del lotto. 


Nel programma i punti cardinali vengono indicati come segue: 
N = nord 
S = sud 
E = est 
W = ovest. 



PERIMETRO APERTO <1> 0 CHIUSO <0>? 0 
MUOVA SERIE DI LATI 


© 

S39°0”E 

149.83 

© 

S39°0"E 

50.00 

© 

N85°23'53"W 

50.00 

© 

N85°23'53"W 

114 32 

© 

N1°5’0"E 

132.78 

© 

N46°0'0”E 

14.00 

© 

S89°0'0"E 

25.46 


LATO N. 1 

QUADRANTE, GRADI,MINUTI, SECONDI 

? 2 , 39 , 0 , 0 

DISTANZA 

CNEGATIVA SE RAGGIO DIRETTO VERSO L'ESTERNO)? 149.SS 
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QUADRANTE."GRADI-MINUTI. SECONDI 

? 2 . 3 9-0-0 

; NEGATI VA SE RAGGIO DIRETTO VERSO L'ESTERNO-'? 50 
i_ATO N. 3 

QUADRANTE- GRADI,MINUTI- SECONDI 

? 4 - 35 - 23 , 53 

DISTANZA 

.NEGATIVA SE RAGGIO DIRETTO VERSO L'ESTERNO)?-50 
LATO N. 4 

QUADRANTE- GRADI,MINUTI- SECONDI 

:■ 4 - 35 - 23 - 53 
DISTANZA 

NEGATIVA SE RAGGIO DIRETTO VERSO L'ESTERNO)? 114.32 
LATO N. 5 

QUADRANTE- GRADI-MINUTI, SECONDI 

? 1-1 -5-0 j 

DISTANZA 

1 NEGATIVA SE RAGGIO DIRETTO VERSO L'ESTERNO)? 132.73 
LATO N. 6 

QUADRANTE- GRADI-MINUTI- SECONDI 

? 1 - 46 - O , 0 

DISTANZA 

NEGATIVA SE RAGGIO DIRETTO VERSO L'ESTERNO)? 14 
■_ATO N. 7 

QUADRANTE- GRADI-MINUTI, SECONDI 

'•2-39-0-0 

DISTANZA 

'NEGATIVA SE RAGGIO DIRETTO VERSO L'ESTERNO)? 25.46 
uATO N. 3 

QUADRANTE- GRADI-MINUTI- SECONDI 
7 0-0-0-0 

•QUALE LATO VA CORRETTO IN QUESTA SERIE 
.©“NESSUN ALTRO CAMBIAMENTO)? 0 
ORIGINE 0 / O 

JiTO/DIREZ. 1 .'SE 

DIST. .'AZIMUT 141 0 0 / 149.33 

DEL N/DEL E -116.44 / 94.291 
DIST. N/DIST. E -116.44 / 94.231 


lATO/D IREZ. 2 .'SE 

DIST.,'AZIMUT 141 0 0 ,' 50 

DEL N/DEL E -33.357 ,' 31.466 
DIST. N/DIST. £ -155.297 / 125.757 


ARCO' 124 23 53 

A= 50 A= 5427.339 C= 33.457 T= 94.83 


uATO/DIREZ. 


3 /NE 

DIST./AZIMUT 

35 23 

53 / 50 

DEL N/DEL E 

4.012 / 

43.333 

DIST. N/DIST, 

E -151.235 

/ 175.596 

** PREMERE C 

' PER NUOVA 

SERIE LATI 

lATO/DIREZ. 


4 /NE 

DIST./AZIMUT 

35 23 

53 / 114.3. 

DEL N/DEL E 

9.172 / 

113.351 

DIST. N/DIST. 

E -142.113 

/ 239.547 

lATO/DIREZ. 


5 /NE 

DIST./AZIMUT 

15 0 

/ 132.73 
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DEL N/BEL E 132.756 / 2.51 

BIST. N/DIST. E -9.357 / 232.053 

lATO/DIREZ. 6 /NE 

BIST./AZIMUT 46 0 3 / 14 

BEL N/DEL E 9.725 / 10.071 

BIST. N/DIST. E .368 / 302.129 

** PREMERE 'C' PER NUOVA SERIE LATI ** 

lPTO/DIREZ. 7 /SE 

BIST./AZIMUT 91 0 0 / 25.46 

DEL N/DEL E -.444 / 25.456 
DIST. N/DIST. E -.076 / 327.585 

ALTRI DATI <1=SI, 0=NO>? 0 
L'AREA E-' 31626.573 MQ. 


Listing del programma 

10 REM - CONTROLLO DI MAPPA 

12.REM - PER MAPPE CHIUSE SEGUIRE LA DIREZIONE ORARIA 

13 REM - INIZIARE COL PUNTO A DESTRA DI CONI LATO DEL PERIMETRO 

14 REM - CALCOLARE I LATI AUSILIARI COME RAGGI AD OGNI 

15 REM - ESTREMITÀ DI CIASCUN ARCO. ARCHI C 130 GRADI 

16 REM 

17 REM - VALORE DI PI GRECO, FI=8.14153265 
13 REM - K0= NUMERO DI LATI FER VOLTA 

20 K0=10 

30 DIM B<10),L<10) 

39 REM - PURGO ARROTONDA X A TRE NUMERI DECIMALI 

40 DEF FNR<X)=INT<X*1000f.5)/10O8 

43 REM - R E' IL FATTORE DI CONVERSIONE PER GRADI IN RADIANTI 

50 R=l.745329251E-2 

60 PRINT "^CONTROLLO DI MAPPA" PRINT 

70 PRINT "PERIMETRO APERTO <1) 0 CHIUSO .0)", 

30 INPUT F 

30 IF F=0 THEN 120 

100 PRINT "ORIGINE DISTANZA NORD, DISTANZA EST'; 

110 INPUT H,E 

120 PRINT PRINT "NUOVA SERIE DI LATI " FRINT 
125 G=H 

130 FOR K=1 Tù K0 

139 REM - INSERIRE LA DIREZIONE E LA DISTANZA FER IL PROSSIMO LATO 

140 GOSUB 2008 

149 REM - SE LA DIREZIONE E' 0, SI INSERISCE UN'ALTRA SERIE DI -ATI 

150 IR Q=0 THEN 170 
155 G=G+1 

160 GOTO 240 

169 REM - ZERO LATI INUTILIZZATI IN QUESTA SERIE 

170 IR K=K0 THEN 230 
180 FOR J=K+1 TO K0 
190 B<J)=0 

200 L<J>=0 
210 NEXT J 
230 K=K0 
240 NEXT K 

260 PRINT "QUALE LATO VA CORRETTO IN QUESTA SERIE" 

261 PRINT " <0=NESSUN ALTRO CAMBIAMENTO)", 

270 INPUT K 

273 REM - NESSUN ALTRO CAMBIAMENTO SE SI INSERISCE Ù 

280 IF K=0 THEN 310 

285 K=K-H 

290 GOSUB 2000 

300 GOTO 260 

309 REM - CALCOLO DEI VALORI E STAMPA DELLA TABELLA 
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310 PRINT "ERIGINE ",FNR(N>; V";FNR(E> 

340 PRINT 
350 POR K=1 TO K0 

360 Ll=L<IO 

361 2=2+1 

363 REM - RILEVAMENTO PER L'ARCO 
370 IF L1C0 THEN 1100 
330 IF L1=0 THEN 300 

388 REM - CALCOLO BELL INCREMENTO BI DISTRN2A H NORD E A SUB 
833 REM -(CONVERSIONE BELLA BIRE2I0NE BA ORABI A RABIANTI) 
330 L=LOO#COS<BOO*R> 

400 D=LOO#SIN(BOO#R) 

410 N=N+L 
420 E=E+B 

423 REM - INCREMENTO BELL'AREA 
430 A=A-E*L+N*D 

440 PRINT "LAT0/BIRE2.“;TAE(17>;H+K; 

443 REM - BETERMINARE LA BIREZIONE IN BASE AL RILEVAMENTO 
450 IF B<K>=0 THEN 470 
460 GOTO 430 
470 PRINT "N“ 

480 GOTO 830 

430 IF BOO<30 THEN 510 

500 GOTO 530 

510 PRINT "NE" 

520 GOTO 830 

530 IF B(K;>=30 THEN 550 

540 GOTO 570 

550 PRINT "E" 

560 GOTO 830 

570 IF B(K)<180 THEN 530 

580 GOTO 610 

530 PRINT "SE" 

600 GOTO 830 

610 IF B<K>=180 THEN 630 

620 GOTO 650 

630 PRINT "S" 

640 GOTO 830 

650 IF B(k><270 THEN 670 

660 GOTO 630 

670 PRINT “SO" 

680 GOTO 830 

630 IF B<K)=270 THEN 710 
70O GOTO 730 
710 PRINT "0" 

720 GOTO 830 

730 IF BCKX360 THEN 750 
740 GOTO 770 
750 PRINT “NO" 

760 GOTO 830 

770 IF B(K>=360 THEN 730 
780 GOTO 310 
730 PRINT "N" 

800 GOTO 330 
810 B<K>=BOO-360 
820 GOTO 450 

323 REM - DEFINIRE LA DIREZIONE IN GRADI, MINUTI, SECONDI 

330 D1=INT(BOO> 

340 M1=<B<K>-B1>*60 
350 M=INT(MI 

360 S=INT(CMl-M)*60+.5> 

370 PRINT "BIST., AZIMUT Il,fi,S;",FNR<L<K3> 

880 PRINT "BEL N/BEL E ‘, FNR\ L ; ; 1 . ' " FNF: B7 

331 PRINT "BIST. N/DIST. E ",FrlR'.tO,". 'FNR’.E; 

885 PRINT 

830 L(K)=L1 

331 IF 2<3 THEN 300 

835 PRINT ** PREMERE C' PER NUOVA SERIE LATI *#" 

836 REM GET N* IF 14*="" THEN 336 
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837 FRINÌ 
338 2=0 
300 NEXÌ K. 

310 H=0 

320 FRINÌ "hLÌRI DAÌI <.1=SI, 0=NÙ-'". 

330 INFOI 0 

340 IF (JCÙ ìHEH 120 

343 REM - NON 31 CALCOLA L AREA PER $F'E**AÌE AFEkìE 
350 IF FO0 ÌHEN 1000 
360 A=hBS<A/2,' 

370 FRINÌ "L AREA £ "MO. “ 

300 FRINÌ 
.000 END 

1033 REM - il CALCOLANO I LAÌI CURVI - LI SIS INGERISCE NELLA ÌABtLLA 

1100 C=RBStB<.K>-B(K-l>> 

il 10 C=hBS: 100-0 

neo d=-li 

1130 L'.K)=r 

1140 R1=C.'130#it#D#D 

1150 Cl=2*D#SIN<Cv'2*R> 

1160 Ì=D*ÌRN<C.'*#R> 

1170 £3=B<K>-B'.K-1.' 

1100 IF B3<-10O ÌHEN 1210 
1130 IF £33180 ÌHEN 1210 
1200 IF B3CÙ ÌHEN 1230 
1210 H=H+Hl 
1220 COÌO 1240 
1230 A=A-A1 
1240 D1=INT<C> 

1250 M1=<C-D1>460 
1260 M=INÌ<Mi> 

1270 3=INÌ <(M1-MI*6Ó+.5> 

1280 FRINÌ "ARCO “DI.. M/ S : FRINÌ * R=";FHR<D>; "fi="iFNR<Al>; "C="; 

1230 FRINÌ FNR'.Cl >. "ì=”.FNFKÌI 
1300 FRINÌ 
1320 00ÌO 33Ó 

1333 REM -INSERIRE I DAÌI DI UN LAÌO 
2000 BCK>=0 
2010 L<K>=0 

2020 FRINÌ "LHÌO N. “/H+K 
*021 FRINÌ "QUADRANÌE. GRADI/". 

2822 FRINÌ "MINUÌI, SECONDI" 

2030 INPUÌ 0/D/M/S 
2040 IF 0=0 ÌHEN 2270 

2050 IF 034 ÌHEH 2020 

2060 IF Q<0 ÌHEN 2020 

2070 IF D<0 ÌHEH 2020 

2080 IF H<8 ÌHEN 2020 

2030 IF 3<0 ÌHEN 2020 

2180 B<IO=D+ , ;M+S/60>360 
2110 IF B(K»30 ÌHEN 2020 
2120 IF 0=1 ÌHEN 2220 

2130 IF 0=2 ÌHEN 2150 

2140 GOÌG 2170 
2150 B<K>=180-B<IO 
2160 GOÌO 2220 
2170 IF 0=3 ÌHEN 2130 
2188 GOÌO 2210 
2130 B<K)=180+B<K> 

*280 GOÌO 2220 

2210 IF 004 ÌHEN 2220 

2220 FRINÌ "DISÌAN2A “ 

2221 FRINÌ “cNEGBÌIVA SE RAGGIO DIREÌÌO VERSO L'ESÌERNO)“; 

2230 INPUÌ LLK; 

2240 IF LOO>0 ÌHEN 2270 

2250 IF ABS<L<K)>OABSCL<K-l>> ÌHEN 2220 

2270 REÌURN 

3393 END 
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GIORNO DELLA SETTIMANA 


Questo programma calcola quale giorno della settimana corrisponde ad una 
certa data. Per esempio, il 25 Dicembre 1980 è caduto di giovedì. 

È necessario inserire la data in forma numerica, nell’ordine giorno (D), mese 
(M), anno (Y). Ad esempio, il 12 Settembre 1975 va inserito come 12,9,1975, 
facendo attenzione che i vari elementi siano separati da virgole e non da trattini o 
altro. 

Esempi: 

Francesca è nata il 4 Marzo 1953. Che giorno era? 

Lo zio Giovanni ebbe un appuntamento il 30 settembre 1977. Che giorno era? 


GIORNO DElLA SETTIMONA 

INSERIRE 0,0.0 PER TERMINARE IL PROGRAMMA) 
GIORNO,MESE,ANNO? 4,3, 1353 
MERCOLEDÌ 

GIORNO,MESE,ANNO? 30 , 3 , 1377 
v'ENERD I 

•31 ORNO/ rlESEs ANNO? 0/0*0 


Listing del programma 

.0 PRINT "1531 ORNO DELLA SETTIMANA" 

20 FRINT 

33 REM - SI RICHIEDE L INSERIMENTO DI DATI DA PARTE DELL'UTENTE 
30 PRINT "(INSERIRE 0,0,0 PER TERMINARE II PROGRAMMA)" 

40 PRINT "GIORNO,MESE,ANNO", 

50 INPUT D, M, V 
i 0 IF MO0 THEN 1Ù0 
70 IF DO0 THEN 100 
30 IF VO0 THEN 10O 
30 GOTO 363 

33 REM - E NECESSARIO RISISTEMARE I DATI INTRODOTTI PER I CALCOLI? 

100 IF M>2 THEN 130 

103 REM - RISISTEMARE I DATI INTRODOTTI 
HO M=M+12 
1^0 Y=V-1 

123 REM - CALCOLA IL NUMERO DEL GIORNO 

130 M=D+2*M+INT(. 6#<M+1»+Y+INT<Y/4)-INT<Y.'100>+INT<V.'400>+2 
140 N=INT<(N/7—INT<N/7))*?+.5) 

143 REM - TROVA IL NUMERO CORRETTO DEL GIORNO, LO TRASFORMA NEL GIORNO, STAMPA 
150 IF N30 THEN 130 
iòO FRINT "SABATO" 

170 GOTO 340 

130 IF NM THEN 210 
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100 PRINT "DOMENICA" 

30O GOTO 34ù 

310 IF N>3 THE:) 340 

330 FRINT "LUNEDI " 

330 GOTO 340 

340 IF H>3 THEN 370 

350 FRIMT “MARTEDÌ" 

360 GOTO 340 

370 IF fl>4 THEN 300 

3S0 FRINT 'MERCOLEDÌ'" 

35*0 GOTO 340 

3O0 IF N>5 THEN 330 

310 FRINT 'GIOVEDÌ " 

330 GOTO 340 

330 FRIHT "VENERDÌ" 

340 FRINT 

340 REM - I- PROGRAMMA RIPARTE 
350i GOTO 40 
3b0 END 



NUMERO DI GIORNI TRA DUE DATE 


Questo programma calcola il numero di giorni intercorrenti tra due date. Si 
tiene conto degli anni bisestili. Il programma prende come ipotesi che tra oggi e 
domani intercorra un giorno. Così, per esempio, vi sono due giorni tra il 1° Marzo 
e il 3 Marzo dello stesso anno. 

Vi sono alcune precauzioni necessarie per assicurare un uso appropriato del 
programma. Come prima cosa, bisogna inserire innanzitutto la prima tra le due 
date. In secondo luogo, le date vanno inserite in forma numerica (3 invece di 
Marzo) e nell’ordine corretto (giorno, mese, anno; ad es. 17,3,1976). I vari 
elementi devono essere separati da virgole e non da trattini o altro. In terzo luogo, 
l’anno non deve essere abbreviato (1976 e non 76) anche se entrambe le date sono 
dello stesso secolo. Per ultimo, il numero inserito per il mese non deve essere più 
grande di dodici e il numero dei giorni non può essere più grande del numero di 
giorni relativi al mese inserito. In questi casi, verrà stampato il messaggio DATA 
IMPOSSIBILE, il quale segnalerà che è stata inserita una data assurda, del tipo 
32, 14, 1975. È possibile comunque che si abbia una risposta inesatta. 

Nota: i dati vanno inseriti in quest’ordine: mese (M), giorno (D), anno (Y) 

Esempio: 

Giovanni è nato l’8 Agosto 1951. Quanti giorni avrà per il suo trentesimo 
compleanno? 

NUMERO DI 01ORMI TRA DUE DATE 

PRIMA DATA? 8 » 8 .■ 1951 
SECONDA data: s . 3 , 19S1 
DIFFERENZA = L»lL'RNI 

ALTRI DATI <1*SI, 3=N0)? 0 


Listing del programma 

;0 PRINT'TNUMERO DI GIORNI "FA DUE DATE" 

SO PRINT 

Ì8 REM - lE ISTRUZIONI DALLA RIGA 20 AlLA SO RICHIEDONO L INTRODUZIONE DI DATI 
SA REM - DA PARTE DELL'UTENTE 
30 PRINT "PRIMA DATA"; 

40 INPUT DI,MI,VI 
50 PRINT "SECONDA DATA", 

60 INPUT D2,M2,VS 

69 REM - ASSEGNA LE VARIABILI DA UTILIZZARE NEL SOTTOFRGGRAMMA 

?& M=M1 

80 D=B1 

90 V=V1 

100 GOSUB 230 

109 REM - SALVA IL NUMERO DI GIORNI CALCOLATO IN N 

110 N=A 
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119 REM - ASSEGNA LE VARIABILI DA UTILIZZARE NEL SGTTOFROGRhMMA 

120 M=M2 
130 D=D2 
140 V=V2 

150 GOSUB 230 

159 REM - CALCOLA LA DIFFERENZA E LA STAMPA 
ISO N=A-N 

170 PRINT "DIFFERENZA »";N;"GIORNI" 

130 PRINT 

139 REM - IL PROGRAMMA RIPARTE 0 TERMINA? SI RICHIEDE LA RISPOSTA DELL UTENTE 
190 PRINT "ALTRI DATI <1=SI, 0=NO>"; 

200 INPUT X 

210 IF X=1 THEN 20 

219 REM - FINE PROGRAMMA 

220 GOTO 460 

226 REM - SOTTOPROGRAMMA PER CALCOLARE IL NUMERO DI GIORNI INTERCORRENTI FRA 

227 REM - 0/0/0 E G/M/A. INIZIA CON UN TEST DI CONTROLLO SJLLA CONGRUENZA DELLA 

228 REM - DATA. 

229 REM - RAGGIUNGE IL TEST OPPORTUNO IN BASE Al NUMERO DI GIORNI DEL MESE. 

230 ON M GOTO 260.280.260.340,260.340.260,260,340.260.340.260 
240 PRINT "DATA IRREALE" 

249 REM - INTERROMPERE I CALCOLI, RITORNARE AL PROGRAMMA PRINCIPALE 

250 RETURN 

259 REM - IL MESE HA 31 GIORNI 

260 IF D>31 THEN 240 
270 GOTO 350 

279 REM - IL ME3E E' FEBBRAIO; L'ANNO E' BISESTILE? 

280 IF V/4OINT<V/4> THEN 310 


290 IF V/400=INT<V/400> THEN 320 
300 IF V/100OINT<V/100) THEN 320 

309 REM - NON E UN ANNO BISESTILE, IL MESE HA 23 GIORNI 

310 IF D>28 THEN 240 

319 REM - E' UN ANNO BISESTILE, IL MESE HA 29 GIORNI 

320 IF D>29 THEN 240 
330 GOTO 350 

339 REM - IL MESE HA 30 GIORNI 

340 IF D>30 THEN 230 

349 REM-TABELLA DEL NUMERO DI GIORNI DAL PRIMO DELL'ANNO AL PRIMO DI UGNI MESE 

350 DATA 0,31,59,90,120,151,131,212 


351 DATA 243,273,304,334 

360 RESTORE 

361 FOR Q=1 TO M 

362 READ A 

363 NEXT Q 

368 REM - OTTENERE IL NUMERO DI GIORNI DAL 1 DI GENNAIO AL PRIMO DEL MESE 


369 REM - DALLA TAVOLA DEI DATI 

379 REM - CALCOLA IL NUMERO DI GIORNI DA 0/0/0 H G/M/A 

380 A=A+V#365+INT <V/4 >+D+1-1NT < V/100)+1NT<V/400) 

389 REM - PUÒ' ESSERE UH ANNO BISESTILE 

390 IF INT(V/4)OV/4 THEN 450 

409 REM - PROSEGUI IL TEST PER ANNO BIStSTILE 

410 IF v/400=lNT<v/400> THEN 430 
420 IF V/100= INT<V/' 100> THEN 440 

428 REM - SE IL MESE E' GENNAIO 0 FEBBRAIO- RIASSESTARE IL NUMERO DI 

429 REM - CALCOLATO 

430 IF M>2 THEN 450 
440 A=A-1 

449 REM - FINE DEL SOTTOPROGRAMMA, RIENTRARE NEL PROGRAMMA PRINCIPALE 


Gl CRN 


450 RETURN 
460 END 


OPZIONE 

Si potrebbe, per accorciare il programma, omettere il test relativo alle date 
impossibili. Si deve rilevare che, se viene inserito un mese con un numero maggio- 
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re di 12, quando questo test viene omesso, ne deriverà un errore di entrata. Le linee 
di programma che potrebbero essere tolte sono elencate nell’esempio successivo. 

Esempio: 

Quanti giorni intercorrono tra il 4 Luglio e Natale? 


NUMERO DI GIORNI TRA DUE DATE 

PRIMA DATA? 4,7, 197? 
SECONDA DATA? 25 , 12 , 19r7 
DIFFERENZA = 174 GIORNI 

«.TRI DATI <1=SI, 0=NG)? G 


Opz ione 

i REM - OPZIONE 110,150 

10 PRINT"ENUMERO DI GIORNI TRA DUE DATE" 


S0 V=V1 
100 GOSUB 350 

109 REM - SALVA IL NUMERO DI GIORNI CALCOLATO IH N 


140 V=V2 
150 GOSUB 350 

159 REM - CALCOLA LA DIFFERENZA E LA STAMPA 


227 REM - 0/0/0 E 6/M/A. 
'.Cancellare le righe da 22S a 340/ 


348 REM - TABELLA DEL NUMERO DI GIORNI DAL PRIMO DELL ANNO AL PRIMO DI OGNI 

349 REM - MESE 


460 END 
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CONVERSIONI DI UNITA’ DI MISURA 


Questo programma converte una misura data in unità inglesi in unità metri¬ 
che. Le conversioni disponibili in questo programma sono le seguenti: 


1 

Inches 

(pollici) 

in centimetri 

2 

Feet 

(piedi) 

in centimetri 

3 

Feet 

(piedi) 

in metri 

4 

Yards 

(yarde) 

in metri 

5 

Miles 

(miglia) 

in chilometri 

6 

Teaspoons 


in centimetri cubi 

7 

Teblespoons 


in centimetri cubi 

8 

Cups 


in litri 

9 

Pints 

(pinte) 

in litri 

10 

Quarts 


in litri 

11 

Gallons 

(galloni) 

in litri 

12 

Bushels 


in litri 

13 

Pecks 

(once) 

in litri 

14 

Ounces 

in grammi 

15 

Pounds 


in chilogrammi 

16 

Tons 


in chilogrammi 

17 

Gradi Fahrenheit 


in gradi Celsius 


È necessario dare il valore della misura inglese e il numero della conversione 
(dall’l al 17 come elencato più sopra) con la quale si desidera operare. 

Esempio: 

Operare le seguenti conversioni: 

8,5 miles = chilometri 
75° Fahrenheit = "Celsius 
10 Gallons = litri. 

CONVERSIONI DI UNITA' DI MISURA 

INTRODURRE 0 PER TERMINARE IL‘PROGRAMMA 
GUALE CONVERSIONE VI OCCORRE? 5 

VALORE DA CONVERTIRE ? 0.5 

Ò.5 MIGLIA = 13.6765 CHILOMETRI 

OLIALE CONVERSIONE VI OCCORRE? 17 
VALORE DA CONVERTIRE ? 75 
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"5 GRADI FARENHEIT = 23.8888883 CELSIUS 


QUALE CONVERSIONE VI OCCORRE? 11 
VALORE DA CONVERTIRE ? IO 
:0 GALLONI = 37.S5 LITRI 

QUALE CONVERSIONE VI OCCORRE? 0 


Listing del programma 

10 ARINT "^CONVERSIONI DI UNITA' DI MISURA" 

CO PRINT 

23 REM - STABILIRE LE VARIABILI PER 17 FATTORI DI CONVERSIONE 
30 DIM C<17> 

33 REM - CICLO PER ASSEGNARE I FATTORI DI CONVERSIONE IH CO 
40 FOR N=1 TO 17 
30 READ C<N> 

SO NEXT N 

63 REM - TABELLA DEI DATI PER 17 FATTORI DI CONVERSIONE 

70 DATA 2.540,30.480,.3048,.3144 

71 DATA 1.603,4.323,14.788,.2366 

72 DATA .4732,.3463,3.785,35.24 

73 DATA 8.803,28.3435, .4536,307.2 
80 DATA .6214 

83 REM - PRENDERE IL NUMERO DI CONVERSIONE DALLA DESCRIZIONE DEL PROGRAMMA 
30 PRINT "INTRODURRE 0 PER TERMINARE IL PROGRAMMA" 

100 PRINT “QUALE CONVERSIONE ", 

101 PRINT "VI OCCORRE"; 

110 INPUT N 

113 REM - FINE DEL PROGRAMMA ? 

120 IF N=0 THEN 540 

123 REM - CONVERSIONE DISPONIBILE ? 

130 IF N>17 THEN 100 

140 PRINT "VALORE DA CONVERTIRE ", 

150 INPUT I 

153 REM - SI EFFETUA LA CONVERSIONE USANDO IL GIUSTO FATTORE DI CONVERSIONE 
160 R=I*C<N> 

168 REM - DIRIGE IL PROGRAMMA ALLE UNITA' DI CONVERSIONE OPPORTUNE, STAMPA I 
163 REM - RISULTATI 
170 IF N<10 THEN 175 

173 ON N-3 GOTO 360,380,400,420,440,460,480,500 
175 ON N GOTO 130,200,220,240,260,280,300,320,340 
180 PRINT I;"POLLICI =“;R;"CENTIMETRI" 

130 GOTO 520 

200 PRINT I,"PIEDI =";R;"CENTIMETRI" 

210 GOTO 520 

220 PRINT I;"PIEDI =";R;"METRI" 

230 GOTO 520 

240 PRINT I;"VARDE =";R,"METRI" 

250 GOTO 520 

260 PRINT I,"MIGLIA =";R;"CHILOMETRI" 

270 GOTO 520 

230 PRINT I;"TSP. =”;R; 

281 PRINT "CENTIMETRI CUBI" 

230 GOTO 520 

300 PRINT I,"TBSP. =";R; 

301 PRINT "CENTIMETRI CUBI" 

310 GOTO 520 

320 PRINT I,“CUPS =",R;“LITRI" 

330 GOTO 520 
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340 PRINT I; "FINTE R; "LITRI" 

350 GOTO 520 

360 PRINT I;"QUARTS =“;R;"LITRI" 

370 GOTO 520 

330 PRINT I,"GALLONI =",R;"LITRI" 

330 GOTO 520 

400 PRINT I;"BUSHELS =";R;“LITRI" 

410 GOTO 520 

420 PRINT I;"PECKS =“;R;“LITRI" 

430 GOTO 520 

440 PRINT I,"ONCE =";R;"GRAMMI" 

450 GOTO 520 

460 PRINT I,"LIBERE = ";R;"CHILOGRAMMI" 

470 GOTO 520 

480 PRINT I}“TONS ;R;“CHILOGRAMMI" 

430 GOTO 520 

433 REM - CONVERSIONE DI GRADI FARENHEIT IH GRADI CELSIUS 
500 R=C1-323*5/3 

510 PRINT I,“GRADI FARENHEIT =“;R; 

511 PRINT "CELSIUS" 

520 PRINT PRINT 

523 REM - IL PROGRAMMA RIFARTE 
530 GOTO 1O0 



ORDINAMENTO ALFABETICO 


Questo programma mette in ordine alfabetico un elenco di parole o di frasi. 
I numeri possono essere parti di una frase alfanumerica. Tuttavia, non 
possono essere messi in ordine numerico, a meno che contengano lo stesso 
numero di digits. I numeri con meno digits possono essere presi in considerazione, 
aggiungendo il necessario numero di zeri alla loro sinistra. Così, se i numeri da 
classificare si estendono alle centinaia, il numero 13 dovrà essere inserito come 
013. 

Per risparmiare spazi di memoria, lo statement 70 viene scritto in modo da 
limitarsi al massimo numero di termini che si vogliono ordinare alfabeticamente. 
La dimensione dello statement può essere variata nella seguente forma: 

70 DIM A $ (N) 

dove N = numero di voci da ordinare. 

Esempio: 

Mettere in ordine alfabetico i seguenti nomi: 

Robert Wilson 
Susan W. James 
Kent Smith 
Michael Mitchell 
Ann T. McGowan 
Alexander Lee II 
Mary Mitchell 
David Bowers 
Steven Evans 
Carol Jameson 
Linda North 


70 Citi A*<11> 

READV. 

ORDINAMENTO ALFABETICO 

PER TERMINARE IL PROGRAMMA INTRODURRE 0 
NUMERO DI VOCI? 11 
VOCE 1 ? WILSON ROBERT 
VOCE 2 ? JAMES SUSAN W. 

VOCE 3 ? SMITH KENT 
VOCE 4 > MITCHELL MICHAEL 
VOCE-5 ? MCGOWAN ANN T. 
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VOCE 6 ? LEE ALEXANDER II 
VOCE 7 ? MITCHELL MARV 
VOCE 3 ? BOWERS DAVID 
VOCE 3 ? EVANS STEVEN 
VOCE 10 ? JAMESON CAROL 
VOCE 11 ? NORTH LINDA 
BOWERS DAVID 
EVANS STEVEN 
JAMES SUSAN U. 

JAMESON CAROL 
_EE ALEXANDER II 
,'ICGOWAN ANN T. 

MITCHELL MARV 
MITCHELL MICHAEL 
iORTH LINDA 
SMITH KENT 
WILSON ROBERT 

NUMERO DI VOCI? 0 


Listing del programma 

10 PRINT "ORDINAMENTO ALFABETICO” 

20 PRINT 

B0 PRINT "PER TERMINARE IL PROGRAMMA INTRODURRE 0” 

40 PRINT "NUMERO DI VOCI"; 

50 INPUT N 

60 IF N=0 THEN 330 

fc>3 REM - VALORE MASSIMO DEL NUMERO DELLE VOCI DA INSERIRE DI VOLTA IN VOLTA 
70 DIM A*CN; 

S0 FOR 1=1 TO N 
30 PRINT "VOCE";I; 

100 INPUT A$<I> 

110 NEXT I 
120 M=N 

126 REM - LA TECNICA DI ORDINAMENTO USATA CONFRONTA LE VOCI DATE SECONDO 

127 REM - INCREMENTI DECRESCENTI. IL PRIMO PASSO CONFRONTA N/2 ELEMENTI 

128 REM - SEPARATAMENTE, IL SECONDO <N/2>/2, E COSI' VIA FINCHE' L INCREMENTO 
123 REM - E' ESAURITO. 

130 T=M/2 

131 M=INT<T> 

140 IF M=0 THEN 280 
ISO K=N-M 
160 J=1 
170 I=J 
180 L=I+M 

130 IF fl*(IK=A$(L) THEN 250 
200 T*=A*<I> 

210 A*<i:*=A$<L> 

220 A*<L>=T* 

230 I=l-M 

240 IF I>=1 THEN 180 
250 J=J+1 

260 IF J>K THEN 1 30 
270 GOTO 170 

280 FOR 1=1 TO N 

281 REM - VERIFICA DI SCHERMO COMPLETO <20 RIGHE!) 

282 IF I/20OINT< 1/20) THEN 230 

283 REM -ASPETTARE L ORDINE DELL'OPERATORE PER PASSARE AL NUOVO SCHERMO 
234 FRINT "INTRODUCI 'C' PER CONTINUARE"; 

285 INPUT wr:PRINT"? "W* 

230 PRINT A*<I> 

300 NEXT I 
210 PRINT 

313 REM - IL PROGRAMMA RIPARTE 
320 GOTO 40 
330 END 
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OPZIONE 

È possibile ordinare un elenco secondo l’ordine alfabetico inverso, o parten¬ 
do dai numeri più alti o da quelli più bassi. I necessari cambiamenti di programma 
sono elencati nell’esempio successivo. 

Esempio: 

I punteggi di una gara tra studenti spaziano dall’82 al 117. Si ordinino gli 
studenti in ordine decrescente rispetto al loro punteggio. 

89 Bowers 
102 Evans 
111 James 
100 Jameson 
99 Lee 

117 McGowan 
102 Mitchell 
82 Mitchell 
97 North 
91 Smith 
108 Wilson 


76 DIM A*<11> 

READY. 

ORDINAMENTO ALFABETICO 

PER TERMINARE IL PROGRAMMA INTRODURRE 0 

NUMERO DI VOCI? 11 

VOCE 1 ? 089 BOWERS 

VOCE 2 ? 102 EVANS 

VOCE 3 ? Ili JAMES 

VOCE 4 ? 100 JAMESON 

VOCE 5 ? 093 LEE 

VOCE S ’■ 117 MCGOWAN 

VOCE 7 ? 102 MITCHELL 

VOCE 8 ? 032 MITCHELL 

VOCE 3 ? 097 NORTH 

VOCE 13 ? 091 SMITH 

VOCE 11 ? 103 WILSON 

117 MCGOWAN 

111 JAMES 

108 WILSON 

102 MITCHELL 

182 EVANS 

100 JAMESON 

093 LEE 

097 NORTH 

091 SMITH 

089 BOWERS 

082 MITCHELL 

NUMERO DI VOCI? 0 
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: REM - ORDINAMENTO ALFABETICO -OPZIONE 190 


10 FRINT "ORDINAMENTO ALFABETICO" 


1-B0 L=I+M 

190 IF A*a»=fi$<L> THEN 250 
20© Tt=At<I> 





L. 12.000 


Cod. 551 D ISBN 88-7056-111-9 


Il volume raccoglie ben 75 programmi originali 
scritti in un Basic generico, al fine di renderli 
direttamente ed immediatamente utilizzabili, 
salvo poche e semplici modifiche, sulla 
maggior parte dei personal computer in com¬ 
mercio, a cassetta come a floppy disk. 

Per ciascuno, dopo una descrizione introdutti¬ 
va, viene fornito il listing e un campione di 
esecuzione. Cosi come sono, i programmi pro¬ 
posti (tutti verificati) costituiscono un valido 
ausilio per chiunque, non avendo tempo ne 
voglia di programmare, deve risolvere proble¬ 
mi di matematica, statistica, fmanza o, generi¬ 
camente, di pratica utilità. Oppure, mediante 
rielaborazione, con ampiamenti e modifiche, 
tagli e giunzioni di parti di essi, sono un’ottima 
base di partenza per tutti coloro che intendono 
prender dimestichezza con la programmazio¬ 
ne e nello stesso tempo personalizzare i pro¬ 
grammi illustrati. 
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